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VAXELN  Experimentation:  Programming  a  Real-Time 
Periodic!  Task  Dispatcher  Using  VAXELN  Ada  1.1 

Abstract.  The  purpose  of  this  paper  is  to  provide  the  reader  with  some  technical 
information  and  observations,  Ada  source  code,  and  measurement  results  based  on 
experimentation  with  respect  to  developing  a  real-time  periodic  task  dispatcher  in  Ada. 
The  results  presented  here  are  specific  to  a  pVAX-ll/VAXELN  2.3  target  system,  the 
VAXELN  1.1  Ada  compiler,  and  a  KWVii-C  programmable  real-time  dock.  Specifi- 
caBy,  these  results  provide  answers  to  the  question:  How  can  one  achieve  the  effect  of 
scheduling  a  set  of  periodic  Ada  tasks  when  the  njntime  frequency  of  some  of  the 
individual  tasks  is  less  than  the  dock  cycle  frequency  supported  by  an  Ada  runtime 
implementation?  \ 


(  Executive  Summary 

\  1.  Background 

The  Ada  Embedded  Systems  Testbed  Project’s  investigative  approach  promotes  three  typical 
stages  to  developing  real-time  systems:  benchmarking;  experimentation  and  prototyping;  and  de¬ 
signing,  coding,  and  testing  an  application.  To  study  the  performance  characteristics  of  Ada 
cross-compilers,  we  are  mnning  several  existing  benchmark  test  suites  to  gyp*™**  tifrWJ, 
space,  and  capacity  constraints  associated  with  individual  Ada  features. ''"To  minimize  program¬ 
ming  risks  such  as  those  inherent  in  developing  low-level  device  interfaces,  we  are  performing 
evaluation  experiments  (i.e.,  prototyping)  to  explore  programming  alternatives  available  to  an 
application  developer,  implementation  strategies  employed  by  a  compiler  vendor,  and  real-time 
ramifications  with  respect  to  using  Ada  in  these  high  risk  areas.  We  are  also  designing  and 
implementing  an  application  that  is  characteristic  of  real-time  embedded  systems.  This  appli¬ 
cation  system  provides  a  context  for  using  the  experiment  and  benchmark  results  and  will  be  the 
primary  vehicle  for  investigating  the  portability  of  Ada  code  across  several  target  processors. 

The  intent  of  this  experimentation  was  to  investigate  various  programming  alternatives  available 
to  an  application  developer  for  writing  a  real-time  periodic  task  dispatcher  in  Ada.  The  approach 
was  to  design  and  prototype  alternative  versions  of  a  task  dispatcher  for  the  inertial  Navigation 
System  (INS)  JINS  Specification  87, 1NSP  TLDD  87]  simulator  being  developed  by  the  project  to 
support  a  detailed  schedulability  analysis  of  the  INS  periodic  task  set. 


'In  this  context  a  periodcaly  scheduled  task  set  implies  that  each  task  in  the  set  is  executed  at  its  own  fixed 
frequency.  A  periodk:  task  dispatcher  is  a  software  component  that  schedules  the  individual  tasks  at  their  implied  runtime 
frequency. 
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2.  Scope 

For  this  particular  target  configuration  and  cross-compiler  (VAXELN  2.3/VAXELN  Ada  1 .1 ).  a  total 
of  four  dHferent  (prototype)  periodic  task  dispatchers  were  developed.  Two  different  periodic  task 
dispatching  approaches  were  used;  for  each  of  these,  two  different  synchronization  techniques 
were  used,  namely,  the  Ada  rendezvous  and  the  VAXELN  semaphore.  This  paper  first  discusses 
the  rationale  for  needing  a  real-time  periodic  task  dispatcher  and  then  presents  the  high-level 
design  from  which  the  prototypes  were  developed.  Next,  the  task  dispatcher  prototypes  are 
described  in  some  detail,  as  is  the  experimentation  approach  used  to  test  their  feasibility.  Finally, 
the  empirical  results  are  presented  and  analyzed,  and  relevant  technical  observations  are  pro¬ 
vided. 
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1.  Real-Time  Periodic  Task  Dispatcher 

The  Ada  tasking  mechanism  provides  the  real-time  application  programmer  with  a  facility  to  do 
multi-tasking.  The  decision  to  use  Ada  multi-tasking  depends  mainly  on  the  scheduling  require¬ 
ments  of  the  application.  Real-time  applications  can  be  classified  into  three  categories  by  their 
inherent  scheduling  requirements  [MacLaren  80]:  (1)  purely  periodic  scheduling  with  no  aperiodic 
events,  (2)  primarily  cyclic  with  some  aperiodic  events  and  possible  variations  in  computing  bads, 
and  (3)  event-driven  (totally  aperiodic)  and  no  periodic  scheduling.  Common  practice  has  been  to 
empby  a  cyclic  executive  for  an  three  levels,  but  it  has  been  shown  that  the  benefits  of  Ada 
multi-tasking  (e.g.,  supports  aperiodic  events,  monitors  intertask  dependencies,  controls  task  in- 
teractfon,  and  supports  cyclic  processing  at  arbitrary  frequencies)  can  be  realized  with  applica¬ 
tions  having  scheduling  requirements  falling  the  latter  two  categories  [MacLaren  80].  With  Ada 
multi-tasking,  the  runtime  is  responsible  for  scheduling  tasks,  whereas  with  a  cyclic  executive  the 
applicatbn  programmer  controls  the  scheduling. 

The  Inertial  Navigatbn  System  simulator  must  not  only  schedule2  periodic  tasks  for  execution, 
but  also  must  handle  the  scheduling  of  aperiodic  tasks.3  Its  scheduling  requirements  therefore 
fall  into  the  second  category  above.  As  such,  we  decided  to  use  Ada  tasking  wherever  possible 
to  meet  the  applicatfon's  scheduling  requirements.  This  chapter  first  motivates  the  need  for  a 
real-time  periodic  task  dispatcher  executing  on  top  of  the  Ada  runtime  system.  It  then  presents  a 
high-level  descriptbn  of  the  design  of  the  INS  executive  subsystem  that  supports  the  scheduling 
of  the  INS  task  set  via  the  real-time  task  dispatcher. 


1.1.  Motivation  and  Rationale 

One  of  the  most  important  concerns  for  devebping  a  real-time  applicatbn  is  satisfying  timing 
requirements.  The  INS  simulator  has  certain  real-time  requirements  that  it  must  meet: 

1 .  scheduling  periodic  tasks  at  frequencies  of  400,  25, 16,  and  1  Hz; 

2.  providing  a  task  time-out  service  that  must  notify  waiting  tasks  after  expiry  of  10.24 
ms;  and 

3.  supporting  a  time  stamp  mechanism  at  a  granularity  of  2.56  ms. 

The  delay  statement  in  Ada  was  designed  to  aid  in  satisfying  timing  deadlines.  However,  vali- 
1  dated  Ada  compilers  to  date  have  implemented  the  semantics  of  this  statement  by  only  ensuring 

that  the  task  that  executes  it  will  be  suspended  from  further  executbn  for  at  least  the  duration 
specified,  rather  than  supporting  a  guaranteed  upper  bound  on  the  duratbn  of  time  a  task’s 
executbn  will  be  suspended.  To  further  aggravate  this  problem,  the  validated  Ada  compilers 
investigated  to  date  have  at  best  supported  a  10  ms  clock  cycle  (SYSTEM  TICK).  These  issues 
»  in  combination  with  the  INS  simulator's  requirement  for  a  fine-grained  (2.56  ms)  notbn  of  time 

serve  as  the  ratbnale  for  using  a  programmable  real-time  clock  and  a  real-time  task  dispatcher 
on  top  of  the  Ada  runtime  system  for  supporting  periodic  task  scheduling. 


*We  um  the  term  "schedule*  loosely  in  tw  report  to  mean  that  an  Ada  task  has  bean  marked  ready  to  be  scheduled 
I  by  the  Ada  runtime  task  scheduler. 

*For  example,  the  INS  communication  subsystem  irregularly  requests  time-outs  through  an  aperiodic  task 
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1.2.  Top-Level  Design 

This  section  provides  an  overview  of  the  INS  simulator's  executive  subsystem  design,  which 
serves  as  a  prototype  of  the  INS  simulator's  real-time  task  dispatcher.  This  subsystem  consists 
of  three  major  components,  namely  a  Real-Time  Clock  Manager,  an  Activation  Queue  Manager, 
and  a  Task  Manager,  each  of  which  is  represented  by  one  Ada  package  as  shown  in  Figure  1-1 . 


Figure  1-1 :  INS  Executive  Subsystem  -  Package  Dependencies 

The  rounded,  unshaded  rectangles  in  the  figure  represent  Ada  package  specifications,  whereas 
the  shaded  one  represents  package  bodies;  the  arrows  indicate  the  dependency  relationships  (an 
arrow  from  A  to  B  implies  that  A  depends  on  B).  The  three  packages  at  the  bottom  of  the 
diagram  are  a  subset  of  the  packages  that  the  executive  imports  from  other  INS  subsystems  to 
gain  visibility  of  the  periodic  tasks  that  are  part  of  the  task  set.  The  remaining  packages  con¬ 
stitute  the  executive  subsystem  whose  responsibilities  include  scheduling  the  periodic  task  set 
and  servicing  time-out  requests  and  cancellations.  The  following  sections  briefly  describe  each  of 
these  packages. 

1.2.1.  INS  Data  Types 

The  INS  Data  Types  package  (see  Appendix  A.e)  of  the  INS  executive  subsystem  provides  the 
common  data  types  used  by  the  other  packages.  Specifically,  it  defines  a  data  type  for  represent¬ 
ing  the  executive's  notion  of  time  (i.e.,  the  number  of  ticks  since  program  invocation). 

1.2.2.  Real-Time  Clock  Manager 

The  Real-Time  Clock  Manager  component  of  the  INS  executive  subsystem  provides  a  set  of  Ada 
interfaces  to  a  KWV1 1  -C  programmable  real-time  clock  [LSI-1 1  User's  86].  This  component  con¬ 
sists  of  one  Ada  package  (see  Appendix  A.a  —  A.d)  that  provides  the  necessary  data  types, 
procedures,  functions,  and  exceptions  for  interfacing  to  multiple  KWV11-C  real-time  clocks  via 
Ada  application  code  [Clock  TR  87],  These  routines  support  all  four  modes  of  the  clock's  opera¬ 
tion  (Single  Interval  Interrupt,  Repeated  Interval  Interrupts,  External  Event  Timing  Zero  Base,  and 
External  Event  Timing  Cumulative)  in  addition  to  its  five  different  internal  clock  rates  (1  MHz,  100 
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KHz,  10  KHz,  1  KHz,  100  Hz).  In  addition  to  providing  a  mechanism  lor  establishing  a  link 
between  dock  interrupts  and  an  interrupt  Service  Routine  (ISR).  the  Real-Time  Clock  Manager 
supports  typical  programmable  dock  operations  such  as  setting  the  clock's  operation  mode  (e  g., 
repeated  interrupts),  setting  the  dock  frequency,  enabling  and  disabling  clock  interrupts,  and 
programming  the  dock  interrupt  period. 

1.2.3.  Activation  Queue  Manager 

The  Adivation  Queue  Manager  component  of  the  INS  executive  subsystem  implements  a  single 
time  and  priority  ordered  task  adivation  queue.  This  component  is  represented  in  the  design  as 
one  package  named  Activate  n_ QueueJManager.  The  package  specification  (see  Appendix 
A.o,  A.p  )  exports  the  necessary  data  types,  procedures,  and  exceptions  for  accessing  the  ele¬ 
ments  of  the  time-priority  ordered  task  adivation  queue.  Specifically,  the  package  specification 
defines  a  data  type  that  represents  a  task  adivation  record  (AR)  so  that  the  users  of  this  package 
can  build  such  data  objeds.  An  AR  contains  the  task's  name,  adivation  period,  adivation  time, 
execution  priority,  and  its  adivation  mode  (e.g.,  periodic,  aperiodic).  The  Adivation  Queue  Man¬ 
ager  supports  typical  queue  operations  such  as  inserting,  fetching,  deleting,  and  re-inserting  for 
adivation  records  via  the  exported  procedural  interfaces. 

The  implementation  details  of  the  task  adivation  queue  are  hidden  in  the  package  body.  The 
prototyping  described  in  Chapter  2  presents  the  details  of  two  different  implementations  of  the 
adivation  queue  and  its  corresponding  operations. 

1.2.4.  Task  Manager 

The  Task  Manager  component  of  the  INS  executive  subsystem  provides  a  centralized  task  name 
service  for  the  entire  INS  simulator  program  in  addition  to  supporting  the  operations  of  enabling, 
disabling,  and  queiying  the  schedulability  status  (e.g.,  enabled  for  adivation)  of  periodic  INS 
tasks.  It  is  represented  in  the  design  as  one  package  named  Task_Manager(see  Appendix  A.q, 
A.r).  The  Task  Manager  also  provides  a  mechanism  for  registering  and  canceling  time-out  re¬ 
quests  from  the  communications  subsystem.  The  package  specification  exports  an  enumeration 
type  that  contains  an  enumeration  literal  for  each  task  in  the  INS  task  set.  The  package  exports 
subprograms  to  support  the  aforementioned  operations  on  any  of  these  tasks.  Furthermore,  the 
package  specification  exports  a  procedure  for  initializing  the  INS  task  adivation  queue  and  one 
for  initializing  the  real-time  dock  and  adivating  the  Dispatcher  task.  Initializing  the  adivation 
queue  involves  inserting  adivation  records  for  each  of  the  pre-defined  periodic  tasks  within  the 
INS.  The  process  of  programming  the  real-time  clock  involves  setting  up  the  mode,  rate,  and 
Interrupt  Service  Routine.  Finally,  the  Task  Manager  implements  a  real-time  periodic  task  dis¬ 
patcher  on  top  of  the  task  services  provided  by  the  Ada  runtime  using  interrupts  generated  from  a 
real-time  programmable  clock. 

To  implement  this  task  dispatcher,  specific  knowledge  of  the  mapping  between  the  task  ID 
enumeration  literals  and  the  adual  Ada  task  names  within  the  INS  simulator  program  is  located  in 
the  package  body.  The  Dispatcher  task  is  a  high  priority  Ada  task  within  the  INS  simulator 
program.  Its  body  has  a  loop  that  attempts  to  dispatch  a  new  task  at  every  dock  interrupt.  Inside 
the  loop  it  first  waits  for  the  signal  from  the  clock  ISR  indicating  that  an  interrupt  just  occurred.  It 
then  updates  its  notion  of  time,  namely  the  current  tick  number,  and  then  requests,  from  the 
Actlvation_Queue_Manager,  an  AR  of  a  task  that  should  be  scheduled  at  the  current  time. 
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Finally,  then,  based  (Hi  the  activation  mode  of  the  task  represented  by  the  returned  AR,  it  takes 
appropriate  action. 

1.2.5.  Data  and  Control  Flow 

A  brief  description  of  the  data  and  oontrol  flow  of  the  INS  executive  subsystem  follows.  This 
discussion  is  relative  to  the  data  and  oontrol  diagram  appearing  in  Figure  1-2  and  assumes  a 
VAXELN  target  system. 

Step  Description 

1  Initialize  the  activation  queue.  Initializing  the  activation  queue  involves  creating 
new  activation  records  for  each  of  the  pre-defined  periodic  tasks  within  the  INS 
and  inserting  those  ARs  into  the  activation  queue.  Depending  on  the  activation 
queue  management  approach,  either  an  index  for  the  just-inserted  AR  is  returned 
or  the  next  tick  number  at  which  time  a  task  needs  to  be  scheduled  is  returned. 

2  Program  the  real-time  clock’s  settings.  The  process  of  programming  the  real-time 
clock  involves  setting  up  the  mode,  rate,  and  Interrupt  Service  Routine.  The  asso¬ 
ciation  between  the  hardware  interrupt  and  the  Ada  ISR  must  be  established 
through  a  VAXELN  service  (CREATE_DEVICE);  this  kernel  routine  returns  a  de¬ 
vice  object  tag  back  to  the  caller;  as  can  be  seen  in  the  data/control  diagram,  this 
information  is  passed  back  to  the  Activate  Dispatcher  subprogram. 

3  Activate  the  task  dispatcher  and  instruct  the  real-time  clock  to  begin  generating 
interrupts.  Prior  to  starting  the  real-time  clock,  the  Dispatcher  task  is  activated  via 
an  Ada  rendezvous  from  the  Activate  Dispatcher  subprogram.  The  data  passed 
to  the  Dispatcher  is  precisely  the  device  object  returned  from  the 
CREATE_DEVICE  kernel  service.  The  Dispatcher  uses  this  data  to  properly  syn¬ 
chronize  with  the  clock  interrupts.  Upon  activation  of  the  Dispatcher,  the  real¬ 
time  clock  is  started. 


n  A  real-time  clock  interrupt  occurs.  The  .VAXELN  kernel  transfers  control  to  the  ISR 
associated  with  the  clock  interrupt. 

n+1  The  ISR  signals  the  Dispatcher  using  the  VAXELN  Signal/Wait  mechanism. 

n+2  The  Dispatcher  fetches  the  next  AR  from  the  activation  queue. 

n+3  The  Dispatcher,  if  necessary,  activates  the  appropriate  task  for  execution. 

In  Figure  1-2,  rounded  rectangles  represent  packages,  rectangles  correspond  to  individual  sub¬ 
programs  in  the  body  ol  the  Task  Manager,  and  parallelograms  are  Ada  tasks.  Note.  The 
Dispatcher  task  is  in  the  body  of  the  Task_Manager  package 

A  sample  main  program  that  initiates  the  executive  subsystem  is  shown  below. 

with  Taa)c_Manager; 

procedure  INS  is 
begin 

Task;_Manages .  Initialize_Act  ivat  ionjQueue  ; 

Tssk_Manager . Act ivate_Dispat char ; 

end  INS; 

After  this  initiation  sequence,  the  Dispatcher  runs  autonomously,  being  driven  by  the  real-time 
clock  interrupts  (step  n)  and  continually  performing  steps  n+1,  n+2,  and  n+3. 
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2.  Real-Time  Task  Dispatcher  Prototyping 

To  lessen  the  risks  of  Implementing  the  INS  simulator  using  Ada  tasks,  alternative  prototype 
versions  of  the  real-time  periodfc  task  dispatcher  were  developed  to  assess  the  schedu lability  of 
the  INS  periodfc  task  set  based  on  estimates  of  task  execution  times.  This  chapter  presents  the 
results  of  this  system  modefing  and  analysis. 


2.1.  Schedulability  Analysis 

To  assess  the  schedulability  of  the  INS  periodic  task  set,  the  following  four-step  approach  was 
taken. 

Step  1  -  Make  real-time  measurements 

Prior  to  embarking  on  the  modeling  of  the  INS  simulator  tasking  structure.  K  was  essential  to 
understand  the  internal  operation  of  the  underlying  VAXELN  [VAXELN  Release  86.  VAXELN 
User’s  85]  runtime  executive.  Key  real-time  measurements  shown  in  Table  2-1  were  either  em¬ 
pirically  obtained  or  taken  from  the  VAXELN  performance  documentation. 


Event 

Time 

Interrupt  latency  (VAXELN  manual) 

33  psec 

Context  switch  (VAXELN  manual) 

150  psec 

VAXELN  signaltoait  (empirical  result,  no  process  contention) 

285  Msec 

Ada  rendezvous  (empirical  result) 

1 780  Msec 

Attitude  and  Heading  calculations  (empirical  result) 

450  Msec 

Table  2-1:  VAXELN  Real-Time  Measurements 


Step  2  •  Estimate  CPU  utilization  for  task  set 

As  a  second  step  in  the  schedulability  analysis,  runtime  estimates  for  each  INS  periodic  task  were 
made;  execution  time  and  CPU  utilization  estimates  for  the  INS  task  set  appear  in  Table  2-2.  The 
execution  time  of  the  Attitude  Updater  was  empirically  measured  to  be  0.45  ms,  whereas  the 
runtime  for  the  remaining  periodic  tasks  was  estimated.  The  overhead  associated  with  each 
periodfc  task  represents  the  context-switching  time  for  entering  and  leaving  the  task  (2  context 
switches  *  0.30  ms);  for  the  Attitude  Updater  the  overhead  represents  the  sum  of  interrupt 
latency  and  a  context  switch  to  the  Dispatcher  (0.03  +  0.15  =  0.18  ms).  The  synchronization 
times  associated  with  each  periodic  task  is  1.48  ms,  which  is  the  measured  Ada  rendezvous 
times  less  0.30  ms  for  context  switches;  the  0.29  ms  of  synchronization  time  for  the  Attitude 
Updater  corresponds  to  the  VAXELN  Signal/Wait  time  (see  Table  2-1).  II  the  analysis  is  correct, 
the  implication  is  that  only  15%  of  CPU  time  is  available  for  the  task  dispatcher  and  background 
processing. 
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Table  2-2:  INS  Periodic  Task  Set  ■  Execution  Time  and  CPU  Utilization  Estimates 

Step  3  -  Build  INS  tasking  model 

The  next  step  of  the  analysis  was  the  development  of  a  skeletal  INS  tasking  model.  The  control 
logic  of  each  periodic  task  was  virtually  the  same:  an  autonomous  loop  containing  first  a 
synchronization  point  at  the  top  followed  by  code  to  perform  the  task's  computation.  For  the  sake 
of  modeling,  the  computational  load  of  each  periodic  task  was  represented  using  a  busy  wait 
mechanism  whose  variability  was  between  5  and  10  percent.  For  instance,  the  Velocity  Updater 
task  was  instrumented  with  a  4  ms  busy  wait  (see  Table  2-2).  This  busy  wait  was  implemented 
using  an  external  subprogram  call,  and  its  basic  unit  of  time  measure  was  100  ps;  the  routine  was 
independently  tested  to  be  accurate  to  within  10%.  To  achieve  the  effect  of  varying  the  percent¬ 
age  of  free  CPU  time,  the  duration  of  ail  of  these  busy  waits  was  scalable  using  a  global  load 
factor.  For  example,  a  global  load  factor  of  0.75  is  equivalent  to  the  duration  of  each  task's  busy 
wait  being  75%  of  its  estimated  value  (0.75  *  4  ms  -  3  ms  for  the  Velocity  Update i);  a  load  factor 
of  1 .25  increases  the  duration  of  the  waits  to  125%  of  their  estimated  values. 

Step  4  -  Monitor  missed  deadlines 

The  final  step  of  the  analysis  was  to  vary  the  global  load  factor  and  monitor  the  model  behavior 
with  respect  to  missed  deadlines.  For  each  dispatching  technique  under  investigation,  the  global 
load  factor  was  continually  increased  by  0.05  (its  fixed  point  delta)  until  a  task  deadline  was 
missed.  This  critical  load  factor  value,  termed  the  schedulability  threshold,  was  empirically 
determined  for  each  dispatching  alternative  implemented.  These  periodic  task  dispatching 
prototypes  are  described  in  the  next  section. 


2.2.  Periodic  Task  Dispatching  Alternatives 

Given  the  high  level  design  abstraction  for  the  Activation  Queue  Manager,  described  in  Section 
1.2.3,  two  different  queue  management  approaches  were  implemented,  each  associated  with  its 
own  periodic  task  dispatcher.  For  each  of  these  two  different  task  dispatching  prototypes,  two 
different  synchronization  techniques  were  employed,  namely  the  Ada  rendezvous  and  the 
VAXELN  semaphore.  This  section  describes  the  two  dispatching  approaches,  hereafter  referred 
to  as  the  general-purpose  queue  management  (GPQM)  and  the  static  queue  management  (SQM) 
approaches. 
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2.2.1.  General  Purpose  Queue  Management 

In  the  general-purpose  queue  management  approach,  the  ordered  activation  queue  is  imple¬ 
mented  as  an  array  of  indices  into  a  table  of  existing  activation  records.  Thus,  the  manipulation 
(e.g.,  insertion,  deletion)  of  the  ARs  in  the  queue  essentially  involves  the  proper  maintenance  of 
these  indices  and  the  AR  table  entries.  For  instance,  inserting  a  new  AR  into  the  queue  involves 
creating  a  new  entry  in  the  AR  table,  locating  the  proper  queue  position  of  this  new  AR  based  on 
its  activation  time  and  priority,  and  finally  inserting  its  AR  table  index  at  the  proper  queue  positron 
while  at  the  same  time  relocating  any  other  queue  elements  affected  by  the  insertion.  Deletion  of 
a  specific  element  is  similar  in  logic  to  insertion;  however,  at  present,  no  mechanism  is  in  place 
for  reclaiming  space  in  the  AR  table  when  ARs  are  deleted.  Fetching  an  AR,  of  course,  removes 
the  element  from  the  head  of  the  ordered  queue. 

In  this  implementation,  the  task  Dispatcher  calls  the  Activation  Queue  Manager  (AQM)  every 
clock  tick  (2.56  ms),  passing  it  the  current  time  (i.e.,  tick  number).  The  AQM  compares  this  time 
to  the  activation  time  of  the  AR  at  the  head  of  the  queue  (in  this  implementation,  the  first  array 
element);  if  the  values  are  equal,  then  the  first  AR  is  returned;  otherwise,  a  null  AR  is  returned. 
When  a  non-null  AR  is  returned  (i.e.,  taken  off  the  queue),  its  activation  mode  value  is  checked;  if 
it  represents  a  periodic  task,  a  new  activation  time  is  computed,  and  the  AR  gets  updated  within 
the  table  and  is  re-inserted  into  the  queue.  It  is  possible  that  more  than  one  AR  meets  the 
activation  time  criteria  specified  in  the  Get_Actlvatk>n_Record  call;  in  such  cases  the  first  AR  is 
always  returned  since  it  is  guaranteed  to  have  the  highest  execution  priority;  the  other  qualifying 
ARs  have  their  activation  times  incremented  by  1  tick  and  are  re-inserted  into  the  queue;  how¬ 
ever,  the  original  schedule  for  the  delayed  tasks  is  maintained. 

2.2.2.  Static  Queue  Management 

In  the  static  queue  management  approach,  the  activation  queue  is  implemented  as  a  statically 
sized  array  of  activation  records.  The  ARs  are  never  moved  from  their  initial  position  in  the  array, 
and  one  special  array  element  is  reserved  for  the  AR  of  the  Communications  Controller  task, 
which  is  called  when  a  time-out  has  expired.  In  the  purist  sense,  the  data  structure  is  not  man¬ 
aged  as  an  ordered  queue,  but  rather  as  an  array  of  elements,  of  which  one  is  always  marked  as 
the  next  AR  to  be  returned  upon  a  fetch  operation.  In  this  scheme,  the  AQM  maintains  infor¬ 
mation  regarding  the  next  task  to  be  scheduled  and  when  to  schedule  it  by  performing  a  linear 
search  of  the  array  upon  each  insert  and  fetch  operation.  A  benefit  to  this  approach  is  that  the 
need  for  special  processing  to  resolve  scheduling  conflicts  is  obviated  by  the  linear  searching 
upon  each  fetch  and  insert  operation,  since  the  search  implicitly  resolves  conflicts. 

In  this  implementation,  the  task,  Dispatcher  calls  the  Activation  Queue  Manager  only  at  the  times 
when  tasks  are  scheduled  to  be  activated.  Upon  each  insert  (e.g.,  time-out  request)  and  fetch 
(e  g.,  get  next  AR)  operation,  the  AQM  returns  the  next  activation  time.  When  an  AR  is  relumed 
(i.e.,  taken  off  the  queue)  to  the  Dispatcher ;  its  activation  mode  value  is  checked  by  the  AQM;  if 
it  represents  a  periodic  task,  a  new  activation  time  is  computed,  and  the  AR  gets  re-inserted  into 
the  queue.  To  handle  scheduling  conflicts  easily,  the  Dispatcher  fetches  ARs  from  the  AQM 
when  the  current  time  is  either  equal  to  (no  conflicts)  or  past  (a  conflict  has  occurred)  that  time 
specified  by  the  AQM  as  the  next  time  to  schedule. 
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3.  Results 


Empirical  results  produced  from  the  schedu  lability  analysis  are  presented  in  this  chapter  from  two 
different  perspectives.  First,  a  comparison  of  the  two  queue  management  approaches  and  their 
associated  task  dispatching  prototypes  is  made  by  analyzing  their  effects  on  total  CPU  utilization 
when  the  synchronization  mechanism  is  held  fixed.  Second,  an  analysis  of  the  performance 
ramifications  of  the  two  synchronization  techniques,  namely  the  Ada  rendezvous  and  the 
VAXELN  semaphore,  is  done  with  respect  to  total  CPU  utilization.  Finally,  relevant  technical 
observations  are  provided. 

3.1.  Dispatching  Techniques 

Tables  3-1  and  3-2  show  that  the  calculations  performed  by  the  Attitude  Updater  require  18% 
CPU  utilization  and  that  the  elapsed  cycle  time  for  the  general-purpose  queue  management 
(GPQM)  task  dispatcher  is  0.10  ms  (0.32  -  0.22  -  0.10  ms)  slower  than  the  looping  time  of  the 
static  queue  management  (SQM)  task  dispatcher.  These  Dispatcher  cycle  times  measure  the 
elapsed  time  (from  when  the  Dispatcher  is  signaled  by  the  ISR)  of  resetting  the  clock's  interrupt 
flag,  updating  the  Dispatchers  notion  of  time,  and  fetching  the  next  AR.  However,  this  cycle- 
time  measurement  does  not  include  the  elapsed  time  for  activating  the  next  periodic  task  to  be 
scheduled  since  this  time  has  already  been  accounted  for  as  the  synchronization  overhead  asso¬ 
ciated  with  each  periodic  task.  Note:  These  cycle  times  were  empirically  measured  using  a 
programmable  real-time  clock. 

Given  the  minor  difference  (0.10  ms)  between  the  GPQM  and  SQM  elapsed  dispatching  loop 
times,  it  is  not  surprising  to  find  that  their  effective  CPU  utilization  percentages  differ  by  only  4% 
(12.8  -  8.8  ■  4.0  [Tables  3-1  and  3-2])  regardless  of  the  synchronization  mechanism  employed  to 
schedule  the  periodic  tasks.  By  adding  in  the  corresponding  context  switching  overhead  (6%), 
the  total  CPU  utilization  percentage  for  each  dispatching  technique  can  be  obtained.  Since  only 
one  context  switch,  namely  the  one  necessary  to  switch  from  the  Dispatcher  to  another  process 
context,  is  recorded  as  dispatching  overhead  for  either  approach,  the  relative  difference  of  their 
total  CPU  utilization  remains  4%.  For  instance,  the  difference  in  total  CPU  utilization  percentage 
between  the  GPQM  and  SQM  techniques  using  VAXELN  semaphores  for  synchronization  is  4% 
(97  -  93  »  4%  [Table  3-2]).  Comparing  the  Dispatcher  segments  of  the  two  columns  labeled 
"Estimate  (100%)"  in  either  Figure  3-1  or  Figure  3-2  illustrates  this  small  difference  in  total  CPU 
utilization  percentages  attributable  to  the  change  in  dispatching  methods. 

The  imputation  of  the  synchronization  and  context  switching  overhead  for  the  individual  periodic 
tasks  depends  on  the  synchronization  mechanism  in  use.  In  the  case  of  Ada  rendezvous,  1.78 
ms  (2  context  switches  +  synchronization  time  -  2  *  0.15  +  1.48  -  1.78  ms)  of  total  synchroniza¬ 
tion  overhead  is  charged  to  each  periodic  task;  for  VAXELN  semaphores,  only  the  signaling  time 
of  0.28  ms  is  associated  with  the  individual  tasks  since  a  context  switch  out  the  dispatcher  has 
already  been  counted. 


CMU/SEI-87-TR-32 


13 


Table  3-1 :  General/Rendezvous  and  Static/Rendezvous  Estimated  CPU  Utilization4 


It  is  clear  from  inspecting  Figure  3-1  that  the  estimated  CPU  utilization  associated  with  both  the 
GPQM  and  SQM  dispatching  techniques,  when  using  the  Ada  rendezvous  for  task  synchroniza¬ 
tion,  is  equal  to  or  exceeds  100%:  obviously  in  these  cases,  the  INS  task  set  would  not  be 
schedulable  without  incurring  missed  deadlines.  Nevertheless,  empirically  it  is  important  to  deter¬ 
mine  the  critical  point  at  which  the  task  set  becomes  schedulable  for  each  different  dispatching 
approach.  The  schedulabllity  threshold  represents  this  critical  scheduling  point  and  by  its  very 
nature  is  expressed  in  terms  of  a  percentage  of  the  sum  of  the  periodic  tasks’  estimated  CPU 
utilizations.  For  example,  a  schedulability  threshold  of  82%  for  the  INS  task  set  implies  that  the 
tasks  are  schedulable  (i.e.,  will  not  miss  deadlines)  for  only  up  to,  but  not  including,  a  periodic 
task  set  CPU  utilization  level  that  is  82%  of  the  original  estimate  (see  Tables  3-1  and  3-2). 
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Figure  3-1:  General/Rendezvous  and  Static/Rendezvous  Scaled  CPU  Utilization 

Since  the  amount  of  CPU  utilization  consumed  by  the  periodic  tasks  varies  directly  with  the  value 
of  the  global  load  factor,  the  corresponding  "Periodic  Tasks"  segments  of  the  "Estimate"  columns 
in  Figures  3-1  and  3-2  must  be  adjusted  so  that  the  entire  CPU  utilization  is  below  100%,  thus 
making  the  task  set  theoretically  schedulable. 
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Figure  3-2:  General/Semaphore  and  Static/Semaphore  Scaled  CPU  Utilization 
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For  example,  the  schedu lability  threshold  tor  the  GPQM  Dispatcher  using  Ada  rendezvous  (or 
task  synchronization  is  75%.  One  can  observe  from  the  first  two  columns  of  the  bar  chart  in 
Figure  3-1  that  the  "Periodic  Task"  segment  shrinks  to  75%  of  its  original  size  to  reach  a  total 
CPU  utilization  level  under  100%.  The  schedu  lability  thresholds  can  be  read  from  Figures  3-1 
and  3-2  and  are  summarized  in  Table  3-3. 


Table  3*3:  Estimated  CPU  Utilizations  and  Schedutability  Thresholds 

Interpretation  of  the  schedutability  threshold  data  in  Table  3-3  indicates  that,  assuming  the  same 
synchronization  mechanism,  changing  from  the  GPQM  Dispatcher  to  the  SOM  Dispatcher 
yields  a  10%  (85  -  75  ■  110  - 100  -  10%)  increase  in  the  schedulability  threshold. 
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Figure  3-3:  Rendezvous  Versus  Semaphore  Comparison 

3.2.  Synchronization  Mechanisms 

The  difference  in  total  CPU  utilization  (computed  from  the  data  in  Tables  3-1  and  3-2)  when 
varying  the  synchronization  mechanism  used  by  the  Dispatcher  is  7%.  Specifically,  for  the 
GPQM  Dispatcher ,  a  change  in  its  synchronization  mechanism  from  the  Ada  rendezvous  to  a 
VAXELN  semaphore  results  in  a  7%  (104  -  97  -  7%)  savings  in  CPU  utilization;  for  the  SQM 
Dispatcher,  this  savings  is  equal  to  7%  (100  -  93  -  7%).  This  implies  that  using  VAXELN 
semaphores  for  task  synchronization  uses  roughly  7%  less  CPU  time  than  Ada  rendezvous  for 
this  real-time  periodic  task  dispatcher  application. 

Since  the  (estimated)  execution  times  of  both  the  INS  simulator's  base  calculations  and  periodic 
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tasks  are  constant,  Table  3-3  can  be  used  to  illustrate  the  implications  of  the  synchronization 
mechanism  employed  for  scheduling  the  periodic  tasks  on  total  CPU.  The  bar  chart  (generated 
from  this  data)  in  Figure  3-3  dearly  illustrates  the  pervasive  effect  of  the  Ada  rendezvous  on  the 
percent  of  context  switch,  synchronization,  and  dispatching  CPU  utilization. 

Finally,  interpretation  of  the  schedulability  threshold  data  in  Table  3-3  indicates  that,  assuming  the 
same  dispatching  approach  is  being  used,  a  25%  (100  -  75  *  110  -  85  *  25%)  increase  in  the 
schedulability  threshold  results  if  the  synchronization  mechanism  is  changed  from  the  Ada  ren¬ 
dezvous  to  a  VAXELN  semaphore.  Furthermore,  a  35%  improvement  in  the  schedulability 
threshold  is  obtained  when  changing  from  the  GPQM  Dispatcher  and  the  Ada  rendezvous  for 
synchronization  to  the  SQM  and  VAXELN  semaphores. 


3.3.  Technical  Observations 

The  total  estimated  CPU  utilization  for  the  Interrupt  Service  Routine  and  the  periodic  task,  without 
including  the  empirical  results  for  the  Dispatcher's  utilization,  is  quite  high.  In  the  case  of  using 
Ada  rendezvous  for  synchronization,  it  is  85%,  and  similarly  for  VAXELN  semaphores,  it  totals 
78%.  It  is  clear  from  the  tables  in  Tables  3-1  and  3-2  that  a  savings  of  1 1  %  CPU  utilization  would 
be  gained  if  the  synchronization  between  the  ISR  and  the  Dispatcher  could  be  eliminated.  Quite 
simply  this  could  be  done  by  moving  Dispatcher  responsibilities  into  the  ISR.  In  practice,  how¬ 
ever,  this  was  not  possible  since  numerous  VAXELN  Ada  ISR  restrictions  limited  the  number  of 
Dispatcher  implementation  alternatives.  These  ISR  restrictions  disallow  tasking  operations, 
input/output  operations,  and  accessing  variables  not  in  the  immediate  scope  of  the  ISR,  and 
strongly  recommend  against  making  subprogram  calls  external  to  the  ISR. 

The  empirical  results  illustrate  the  pervasive  effect  of  the  Ada  rendezvous  on  the  schedulability  of 
the  INS  task  set.  Using  the  Ada  rendezvous  for  synchronizing  between  the  Dispatcher  and  the 
periodic  tasks  rather  than  VAXELN  semaphores,  regardless  of  the  dispatching  technique 
employed,  results  in  an  increase  in  total  CPU  utilization  of  7%.  Furthermore,  for  both  dispatching 
methods  implemented,  given  the  original  execution  time  estimates  for  the  INS  periodic  tasks, 
using  the  Ada  rendezvous  as  the  synchronization  mechanism  results  in  missed  task  deadlines 
Only  when  these  estimates  are  scaled  by  75%  and  85%  for  the  GPQM  and  SQM  dispatching 
approaches,  respectively,  does  the  task  set  become  schedulable  assuming  Ada  rendezvous  for 
task  synchronization. 

Interpretation  of  the  schedulability  threshold  data  in  Table  3-3  further  demonstrates  the  impact  of 
the  Ada  rendezvous  on  the  task  set  schedulability.  The  empirical  results  show  that,  assuming  the 
same  dispatching  approach  is  being  used,  a  25%  increase  in  the  schedulability  threshold  results 
if  the  synchronization  mechanism  is  changed  from  the  Ada  rendezvous  to  a  VAXELN  semaphore; 
moreover,  a  35%  improvement  in  the  schedulability  threshold  is  obtained  when  changing  from  the 
GPQM  Dispatcher  and  the  Ada  rendezvous  for  synchronization  to  the  SQM  and  VAXELN 
semaphores. 

Based  on  real-time  scheduling  theory,  the  optimal  rate-monotonic  scheduling  algorithm  [Lui  73] 
guarantees  schedulability  of  the  INS  task  set  for  a  processor  utilization  below  70%  since  the 
individual  periodic  tasks  priorities  are  assigned  in  direct  proportion  to  their  execution  frequencies 
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However,  since  the  INS  task  set  CPU  utilization  is  greater  than  70%,  another  schedulability  test 
based  on  the  rate-monotonic  algorithm,  namely  task-lumping  [Sha  87],  was  necessary  to  cal¬ 
culate  the  theoretically  expected  schedulability  thresholds.  The  schedulability  thresholds  deter¬ 
mined  empirically  were  consistent  with  those  computed  theoretically.  For  example,  given  the 
original  execution  time  estimates  for  the  INS  periodic  tasks,  the  SOM  dispatching  approach  using 
VAXELN  semaphore  for  task  synchronization  yielded  a  total  CPU  utilization  level  of  93%.  Fur¬ 
thermore,  it  was  found  empirically  that  the  task  set  was  schedulable  until  the  original  time  es¬ 
timates  of  the  periodic  tasks  were  scaled  by  1 .1  or  until  the  total  CPU  utilization  level  reached 
97%  (ISR  +  Scaled  Periodic  Tasks  +  Dispatcher  *37  +  1.1  *  41  +  15  *  97.1%).  Similarly,  solving 
for  the  schedulability  threshold  using  the  task-lumping  method  results  in  an  expected  threshold 
value  of  1.12. 
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I 

Appendix  A:  INS  Executive:  Ada  Source  Code  for 
SQM/Rendezvous  Dispatcher 

i 

A.a.  KWV_Register_Definitions  Package  Specification 


III  JUU  hbiddtd  lyvt«M  Project  Prologo* 


—  Doit  MM 

—  IqorfiMt 

—  V«raiott 

—  Anther 


DW  MgUUr  Definition*  package  opacification 
BAOl 


1.0 


Mark  «.  Borger 


—  Oat*  er*at*d 

—  lut  update 


20  Fob  1M7 
12  Mar  1917 


—  Boot  Mo  chi  no 


VAX/VMS  4.5 


—  Tor  got  Machine:  VAXELM  2.3 


—  Abet r act 


Thia  pockogo  apod  fi cation  provide*  tho  noooooory 
data  typo  a  to  occooa  tho  Control  atotuo  ond  Buffer 
Beg i a tor*  of  a  WVll-C  real -tine  programablo  clock. 


- - - — - - -  RaviaioB  Hiatory - - 

—  Cato  Voxel  on  Author  Kiatory 

—  12  Mar  97  1.0  Mark  M.  Bor  gar  Addod  prologue 


End  of  Prologuo 


with  SYSTEM;  uao  SYSTEM; 

with  VAXELN_SCBVXCES; 

pock  a  go  KMV_Rogi*tor_Dof  init  ion*  ia 


”**  SMV11-C  Control  Statu a  Bogiator  layout 


typo  EWV_CSR_AECOUD  ia  rocord 


go 


BOOLEAN; 


MOdO 

rat* 

int_ovf 
ovf_fl*g 
moint_at 1 
«aint_at 2 
aaint_oac 

dio 

f 1 ag ^overrun 
at  2_goj*n*bl* 
at  2_int_*nab  1  o 
*t2_fleg 
ond  rooord; 


XmSXGKV)_2; 

UMS I CNED_3  ; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN ; 

BOOLEAN; 

BOOLEAN; 

BOOLEAN; 


—  a tart  tho  countor 

—  nod*  of  operation 

—  clock  rata 

—  interrupt  on  overflow 

—  counter  overflow  occurred 

—  oiaulote  firing  of  otl 

—  ainulate  firing  of  at 2 

—  liaulat*  one  cy .  of  oac 

—  dicable  internal  oedllator 

—  true  if  ovf  occur*  with  ovf_flag  atill  oat 

—  aaaertion  of  at2_flag  a  at  a  go  bit 

—  aaaertion  of  at2_flag  cauaea  an  interrupt 

—  at art  interrupt  raquaat  for  at 2 


for  KMV  CSB  BECOBO  uee  record  at  nod  2; 


0* 

Mode 

rate 

int_ovf 

ovf_flag 

meint_*tl 

na  int_at  2 

nalnt_o«c 

dio  ” 

flegjoverrun 


at  0  range  0. .0; 
at  0  range  1 . . 2 ; 
at  0  range  3. .5; 
at  0  rang*  «. . 4; 
at  0  range  7. .7; 
at  0  range  • . . • ; 
at  0  range  9. .9; 
at  0  range  10.. 10; 
at  0  range  11 . . 11 ; 
at  0  range  12.. 12; 
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ftljfOjMiabl*  *t  0  rtoQ*  13..  13, 
at 2_Ut_«ub  1«  tt  0  nag*  14.. 14; 
at2_fl*g  at  0  nag*  IS.. IS, 

and  noocd; 

for  nvr  Cft  IBOOn'IZU  OH  14; 


—  nmi-C  lofftt/tnMt  tegiatar  layout 


•ubtyp*  mvitirm  la  vaxelm^seevtces . xnvjuoum rurm ; 


—  laoord  typo  aoBttlnlag  tho  HW11-C'*  CM.  mad  BafCar/fraMt  Koglotor 

typo  RMVJME0X STEM  la  noord 

CSR  :  kmv__CSR_RXCO*d;  —  oontrol/atatua  roglator 
MR  :  KMV_M R_TYPE ;  —  buffor/proaot  nglatar 

•nd  rooord; 

pragma  RACK  (  mvjfXGl  8TERS )  ; 


procoduro  Put^CtX  (CSJt  :  in  JOrv_C*R_Ro oo  rd ; 
Rogiator_Addraaa  :  in  ADDRESS  ) ; 


function  GotjCM  (togiot  nr  _Addroaa  :  In  ADDRESS)  rot  urn  WrV__CS  A__Rn  oo  rd  ; 


and  XMV_Rngi  at  ar_Dof  in  it  Iona ; 


A.b.  KWV_Register_Definitions  Package  Body 


SEX  Ada  — boddod  Syatana  Rrojoct  Pro logon 

KMVjRoglatarJDafiaitiona  paekago  body 
1A01 
1.0 

Mark  V.  Aorgor 
23  Mar  1SS7 


VAX/VMS  4 .  S 
—  Target  Ma china:  VAXELS  2.3 


—  Unit  naan 

—  Erporlnont  | 

—  Vara  ion 

—  Author 

—  Data  craatod 

—  L aat  opdata 

—  float  Ma  china 


—  Abatract 


Thla  paekago  body  provider  tho  noeoasary  intorfaoa 
for  raiding  and  writing  tho  KMVll-C'a  CM. 


—  Data 


Revision  fllatory 


vara ion  Author 


fllatory 


End  of  Prologuo  — 


with  UMCflECXIDjCOMVSRSZOM ; 

pa  ok  ago  body  KMV_Rogiat  or_Def  1  ni  1 1  oea  la 

function  ConvortJZt  la  now  UMCflECEED  CCWVERSIOfl  (KSTVCSRRooord,  OMSICWEDjrOftD)  ; 
function  Convert~Xt  la  now  UMCKtCKED^COMVERJ ZOM  (UMSZGMEDJVORD,  KWV_CfR_Record)  ; 

procoduro  Put_CJR  (CSS  :  In  10rv_C*R_Rooord ; 
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Begleter_Adrfxe**  :  ia  ADOtXlf  )  1* 

CurrentjCBB  :  WzmjRtt; 

:  OMXflBOjMD: 

f£r  CHJtolgMi  im  at  kegl  st  er_Addre** ; 
bigta 

Our«afcMCII  :■  Coamtjt  (Cilt) ; 
MXTX__X*aX9TXA  (Cvrut'cn,  ca^OaalgMd); 
•ad  Ivt'cit; 


function  Oet_C9B  (laglafcaraddnM  :  la  ADDBBSt) 
ratan  KMV  Cft  lunti  la 


CM  i  PWMMtjiOBgd; 

Current jC9*  :  OUZan£j»«D; 

C9A_On*lgaed  :  DMIQHKDJKMO); 

for  Clt_On«lgn>d  «m  at  A*gi*ter_Addre*e; 

begin 

Current jC 9  A  :•  UAX)_UtcXSTzm  (Cim_Oa*ig»*d)  ; 
Clt  Convert_Xt  (  Curran  t_CJJl)  ;  " 

rat  urn  CM; 
and  Oat  CM; 


and  mV_RaglatarJDaflnitiona; 


A.c.  Real-Time  Clock  Manager  Package  Specification 


IIZ  Ada  Eatooddod  Vyvtaaa  Project  Prologue 


—  Unit  naaa 

—  Experiment  | 

—  Varaioa 

—  Author 


nwil  Clock  Manager 
PA01  “ 

1.0 

Mark  W.  Bojrger 


—  Data  created  :  17  Mar  1907 

—  La  at  update  :  19  Mar  1997 


—  Boat  Ma  china 

—  Tar gat  Ma  china 


VAX/VMS  4.9 
VAXSLM  2.3 


—  Abatract 


Thla  package  aped  /lent  Ion  provide*  tha  naoaaaaxy 
data  typee,  procedure*,  function* ,  and  az caption* 
for  lntarfacing  to  suit  ip  la  KMVll-C  reel-time  clock* 

(Q-bu*  device)  via  Ada  application  oodo.  All  four  node* 
of  tha  dock'*  operation  a re  aupported  la  addition  to 
lta  five  different  internal  dock  rntaa.  To  u*e  thoaa 
routine*  one  anct  firat  invoke  the  Zaitlnllse  procedure 
to  create  a  clock  device  object  and  gat  a  clock  identifier. 
Thi*  device  object  can  be  need  by  tha  application  to  unit 
an  a  device  elgaal  froa  an  Xaterr^t  Service  Boutina;  the 
dock  Id  la  uaed  aa  n  key  for  tha  remainder  of  the  package'* 
lntarfacaa.  The  Initial  i  tat  ion  exception  1*  rained  if 
the  nnui  kernel  device  abject  cannot  be  created  for 
vhntever  racoon.  Tha  Clock_Met_Xaltlall*ed  except  ion  i* 

If  n  apadfiad  dock  id  ia  invalid. 

Thane  routine*  only  support  eccatar  overflou  intarrupt* 
and  not  flchnltt  trigger  interrupt*.  The  counter  routine* 
(BtartjOouating,  BaadjQouatar,  ttopjOountlag)  should  only 
ba  used  In  nodes  ItodtJNe  or  Moda_JThraa;  when  used  In  any 
node,  tba  I  aval  lda_Clock_Mode  exception  will  ba  reload. 
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K*rlaio*  liftoff 


—  Doto  V«ni« 

—  IS  Mm  «7  1.0 

—  21  Mm  07  1.0 


MitttKy 

l<W>4  Display JCSB  prnnartnu 
J I4M  ZaoalldjClockJlodo  ttoaptioo. 


- - Bad  of  prologue - 


with  VJUC*1M_SS*VIC*S; 
oitk  CCMDZT10BJMDLZVG; 
with  SYSTEM; 

padug*  nrvx  l_Cl  ock_M*aeg»x  la 


—  Data  type*  imported  fro*  SYSTEM  package 


oubtypo  ADDUSS  is  SYSTEM.  ADDRISS; 


—  Dot  a  typoo  import  od  from  COMDZTIOM^MAMDLZM  package 

oubtypo  CO*D_VXLU*_TYT  E  lo  COMDITI  0SMUMD1XMC .  Q0ED_VALP1_TTF E ; 


—  Doto  typoo  imported  from  VAXXIJr_fERVXCZS  peckege 


oubtypo  DEVXd_TT»E  lo  VAXTLM_SKRV2CBS .  DEVXC1_TYPS  ; 

oubtypo  SMV_COOimR_TYP Z  im  VAXZXM~SKRVXCSS  .  KMVjCOOSTBR_Tm; 

oubtypo  VICTOR _JW)MB*R_T5f»I  lo  VXXZXlT*SRVX CXS . VICTOR JTOMB*R_TYR£ ; 


—  Local  Doto  typoo 


typo  Clock__XD  lo  private; 

typo  Clock^Mode  lo  (Kode_Sero,  ModejOae,  Modmjtwo,  Node_Three)  ; 

for  Clock_Mode  uoo  (Mode__tero  •>  0,  Mode_One  •>  1, 
ModeJTu©  •>  2,  Mode~Three  •>  3)  ; 

typo  Cloek_Roto  lo  (Stop,  Rot#_lMHX ,  JUto_100KHi, 

Rete_10KH2,  Rote~lKHX,  Rote~100HX)  ; 

for  Clock^Roto  uoo  (Stop  *•>  0,  Rote_lNHX  ■>  1, 

Rato^lOOntX  ->  2,  Rot o_l 0KHX  ->  3, 
Roto~l*BX  m>  4,  Roto_100HX  ->  5)  ; 


procoduro  Initialise  (Clock_Noa»  :  in  STRING; 

Ciock_Xdantifier  :  out  Clock^XD; 

Mo  do  :  in  CloekJKode; 

Roto  :  in  Clock__Roto; 

Vector_Vuaber  :  In  VECTOR^SDMBIR_TYF£ ; 

Sorr i oo_Rout i no  :  is  ADDRESS; 

CSRJkddrooo  :  out  ADORXSS; 

Deoice_Cb  ject  ;  out  DEVXCE__TYPE  ) ; 


procoduro  te_Zaitlollse  {Clock_Zdentifler  : 

la 

Clock_H>; 

Modo  : 

la 

Clockjfcxte; 

Rato  : 

la 

ClocJc_ht«  ) 

procoduro  D1  oploy_CSR 
procoduro  Eaoble_Xoterrupto 
procoduro  Dloebie_Xntempto 
procoduro  Oeaerote_Xaterrupfco 
procoduro  Baaet_Xaterruptjrlag 
procoduro  MM^Orama^flag 
procoduro  Set_XaterrMptJPeriod 


(Clock_Xdaatlflar  :  la 
(Clock_Xdeatif  ier  :  la 
(Clock_Xdeatlfier  ;  la 
(Clock_Xdeotlfler  :  la 
(Clock_X4ootiflor  :  la 
(Clook^Zdoatlflor  :  la 
(Clock_Xdootl  f lor  :  la 
Period  :  la 


Clock_XD)  ; 

Clock~XD) ; 

Clock__XD) ; 

ClockJXD)  ? 

Clofik^ZD) ; 

ClockJXD)  ; 

Clock~XD; 

RMV_CODWTER_Typo  ); 


procoduro  ftartjCouatlog  (Clock_Idootif  ier  ;  is  ClockJCD) ; 

procoduro  Ro od_Count or  (Clock_Idont  if  ier  :  is  Clock_ID; 
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pcoo«dar«  ftopjCoo at  I  ng 


(lab*r_0{_nck< 

(Clock_X4ootlflar 
tabu  Of  ticks 


oat  urv_cotarjTk_rypo)  ; 

Id  Clock_XD; 

oat  nrv_cocom*_Typ.)  ; 


faoatian  Zntasxapto_knsblad 
faootioa  Carrot  Jlcds 
faootioa  Carrot ~tato 
faootioa  Xntampt_»ariod 
faootioa  Xatarzapt_rlag_On 
faootioa  OoorraoJTlog_Oa 


(Clot_Xdontifior 
(Clocfc~ldantif  ior 
(Cloefc_Xdantiflax 
(Cloak_XdoBtifiar 
(Clock__Id.nt  if  i.r 
(Clock_Xdontifla* 


is 

io 

in 

io 

in 

in 


Cloak_ZB)  ratara  MOOLkXH; 
Clook_XD)  ratara  Cloek_Moda; 
Cloek_XD)  ratara  Cloek_fcsta; 
Clock~XD)  ratara  ncrjCOOMTU 
Clook~XO)  ratara  MOUM; 
Clock_XO)  ratara  ■OOUUMI; 


Xooalid_Cloak_Ms4o  :  naKIOT; 
Initio llutioo_trrer  :  HCCSfTXOM; 
Cloak  Mot  Initialised  :  BCCCrTXOM; 


privato 


aubtypo  Cloak_XB_taogo  io  NATdUtL  ras^o  0 .  .31; 
typo  Clock_XD  io  boo  Clock_IO_R»ngo; 


oad  nmi_Cloclt_10»n»gor; 


A.d.  Real-Time  Clock  Manager  Package  Body 


IIX  Ada  fcbiddad  ly«t«a  rrojaot  Prologue 


—  Doit  DIM 

—  ftytiawt  € 

—  V«r«iea 

—  Author 


XNVU_Clo«kJtoaao«r  paekaga  body 
»A01 
1.0 

Mark  W.  Bor gar 


—  Date  created 

—  La  at  update 


17  Mar  1M7 


—  Boat  Ma china 

—  Tar  gat  Ma  china 


VAX/VMS  4.5 
:  VAXSXJI  2.3 


—  Abatraet 


This  package  body  iaplcMati  tba  eabprogra mm  of  ita 
•pacification.  Zt  maintains  a  Clock_XD  array  containing 
tha  cor raapon ding  clock's  CSR  addraaa  to  allow  for  tha 
control  of  Multiple  clocks. 

— — - —  Revision  Bistory  - - - - 


—  Data  Version  Author 

—  22  Mar  B7  1.0  Mark  If.  Borger 


History 

Add ad  data  structure  to  oontaln 
Mode  and  Rata  for  each  Clock  ZD. 


End  of  Prologue 


package  body  RMV1  ljC lock JKanager  is 


—  Local  Data  types 

type  Clock__Xnfornatioa_ILecord  is  record 
Bata  :  Clock_Rate; 

Mode  :  Clock JMode; 
and  record; 

typo  Clock__Info_Array_Typa  la  array  (Cloek_XD)  of  Cl  ock_Xnf ocnas  1 1  oa_keeord  ; 
Clock_ Znfo  :  Clock_Xnfo JUity^typt  ;■  (others  ■>  (ft op,  Modeller*) )  ? 

typo  Clock_Array_Yypa  is  array  (Clock_ID)  of  ADDRAR1; 

Clock_Array  :  C 1  ock_Array_Type  ;•  (others  ■>  ADORXIfl_ft£RO)  ; 

Currant  Clock  Hunbar  :  Clock  ZD  :■  Clock  XD'PXRST; 


„Typa; 
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p»oc»dttr<  ZaltUliM  (dodtj—  :  la  WUW; 

dock_ZdootTfior  :  oot  Cl*«fc_XD; 

Mp4»  :  la  Clodtjfetft; 

Bata  :  la  Clock_Bat«; 

Tint  in  :  la  ftCfoijWWPTOI ; 

ftcriot^leotiM  :  la  MOHU; 

CttjUdam  :  oat  AfiOftKSf ; 

D«t1  o«_Gb)*ofc  :  oat  DKVSCB^mi  )  la  aoparato; 


procoduro  taJaltlallM  (Clookjdutifitr  :  la  dock_ZD; 

Mod*  :  la  dockJNodo; 

Rato  :  la  Clook_fcit«  )  la  aoparato; 


proooduro  Di«pUy_CU 


(dock_Zdoatlflor  :  la  Clock_ZD)  ia  aoparato; 


procoduro  Raablo_Zntorrupta  (dock_Zdoati£lor  :  la  Cloek_ZD)  ia  aoparato; 

procoduro  Diaablo_Zatorrupta  (Clock^Xdoatiflor  ;  la  Cloek^ZD)  la  aoparato; 

procoduro  fot_Zntorrupt_Foriod  (Clock^Zdoatlfior  :  la  Clock_ZD; 

Forlod  :  ia  IO#V_COUlfT RR_TYP t  )  la  aoparato; 

procoduro  Ooaorato_Zatorrupta  (Clock^Zdaatlf lor  ;  la  Cloek_ZD)  la  aoparato; 

procoduro  Roaot_Zntorrupt__riag  <Clock__Zdoatlfior  :  ia  Clock_ZD)  ia  aoparato ; 

procoduro  Roaot^Oao* t un^rl aq  (Clock__Zdoatiflor  ;  la  Clock__ID)  la  aoparato; 

procoduro  Rtart^Counting  (Clock_Idont  if  lor  :  la  Clock_ZZ>)  la  aoparato; 


procoduro  BoadjCouator 


(Clock_Idooti£ior  :  la  Clock_ZO; 

Ruabor_Of__T  1  cka  ;  out  WV_COOIITRR_TrFE)  ia  aoparato; 


procoduro  RtopjCouatiag  (Clock_Idoutif lor  ;  la  Clock__ZD; 

■u»borJ>«_Iieka  ;  out  IOCV_COOVT*  AT*  *  E )  ia  aoparato; 

function  Zntorrupt a_Eaablod  (Clook_Z  dont  1  f  1  or  ;  ia  dock_ZD) 
rotura  BOOLEAN  lo  aoparato; 

function  Curroot_Modo  (Clock_Xd«ntlf ior  :  la  Clock_ID) 

rotura  Clock JModo  la  aoparato; 

function  Curroat_Rato  (Clock_ldontif ior  ;  in  Clock_ID) 

rotura  Clock_Rato  ia  aoparato; 

function  IntorruptJToriod  (Clock_Idantif ior  :  la  Clock_ID) 

rotura  KMV_C0OMTERjr*P£  ia  aoparato; 

function  Zntorrupt_JTlag_Oa  (Clock_Zdontlf ior  :  la  Clock_ZD) 
rotura  BOOLEAN  ia  aaparato? 

function  Ororrun_Tlag_Oa  (Clock JZdaatl flat  :  la  Clock_ZD) 

rotura  BOOLEAN  ia  aoparata; 

and  KMVH_dock_NMia0or; 


Initialize  procedure 

with  nK»aa_eanixu]o«; 

with  V*XSLM_*unncX*; 

with  IW_l<tiat«rDt(lalti«u; 

••pant*  (nmi_Cl«di_NiHgw) 


oa*  VMXLM_UOTXCU; 
om  MV_totl(t<rJ9«llBltl«a 


procadur*  Initial It*  (clock_Maaa  :  la  RUie: 

Cloek_Z4*atlfl*r  :  out  Clock_XD; 

Mod*  :  Id  Clock~Moda; 
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ht<  :  la  Clock_toto; 

Toctor_— bar  :  la  «K(oi_mn_mi; 

Imloi  mwtlno  :  la  UOKIt; 

CajtMnu  :  oat  UMIM; 

BarlaojOb^ect  :  oat  D*VZC*_*TW  >  lo 

betnxnJCode  :  CMDjnUOS  TTTt; 

Wll_eM_*ddroaa  :  mam.- 

Coxxoot_CM  :  my  cam  loaned 

Haoi_twlo>  :  B*VTC*_I*MI_Wt*(0.  .0)  (other  a  ->  0)  ; 

Amotion  Coo*wrt_It  la  aa«  QKaBOCSDjCCOTBMZOT (Cloak Jtode.  OVfianBJt); 
Amotion  CfMtjt  la  now  Oac«XaatD~COOV«JUIoa  (Clook~»ata,  MlianDj); 

bag!  a 


i 


'  Cmu  tha  WVll-C  dtvie«  object  and  tatocUU  with  its  lntarruptfl  tha 
XBUmpt  larviot  Boutina. 

Craata_D*v  1  ca  (Statu  ■>  RatumjCoda, 

Dtfleajfa—  ->  Clockjhaa, 

Taetarjhabar  •>  Vaetor^Niabar, 

SarrloaJtoutiM  ■>  Sarvloa^RoutiM, 

Mglatara  ■>  EKV1  l_CSR_Xd<lr  ** a , 

Davloajkrny  ■>  Tiaar^Davioa, 

Derrioa  Count  •>  1)  ; 


if  COSK>rTXO«rjMDUIK.*ueosss(R*turn_Coda)  than 
Da'rloajObjact  Tina  tjtt lea  (0)  ; 

Clook__Xdaatifiar  :•  Curratxt_Clock_M\mbar; 

CBBJkddraaa  :•  KNVlljCsa_Xddraas ; 

Cl  ock__Xrray  ( Cuxraat_Clock_*uabar )  :■  KW1  1  jCBR_Addra  a  m  ; 

Cleck^Iafo  (Canut^Cledt^IiBbar)  :»  Clock_lnfoxaation_ftacordr  (Kata,  Moda); 
CttgWBt^Clockjrirt  i r  :•  Currant 1  ock_Buabar  4-  Clock  ID  (1)  ; 


1 


* 


i 


—  Initial  Isa  dock  via  CS1  aattinga 


Currant  CSR  KMVjCSBJtacord'  ( 

go"  rxZ.SE , 

uoda  ->  Con^art_It  (Moda) , 

rata  ■»  Con*art_It  (Rata) , 

othaxs  ->  FJOJK  )7 

tut JCBB  (Currant JCSR,  KMV11  jCIBJUldraaa )  ; 

alaa 

raiaa  Znit iali sat ioa^JIrror ; 
and  if; 

and  Initial! tar 


Rejnltlallze  procedure 

with  nacBBCRDjnavnuioa.-  | 

with  vxxrur_« rvi cri ;  wo  vaxxi*_m*vtcm.- 

wlth  KWV_kegi.t.r_Def inition. ;  wo  AfV_tagiatar_I>af ioltlow ; 

nopoxoto  (KMVll_clock_Maaagor) 

procedure  Ko_Inltloll«o  (Clock_Identif  lor  :  In  Clock_ZD; 

Nod*  :  In  Clock_Modo; 

tat«  :  In  Clock_late  }  la  | 

CorrentClk  ;  JWV_C*»_»ocord  :«  «et_C«(Clock_Array  (Clock_Identifler) )  ; 

Amotion  Cc  rrert_It  lo  now  UbCBCnS_CCNVMaX0«(Cloek_Mode,  CH<iarXD_2)  ; 

Amotion  Coow«rt_zt  lo  now  u*cncxxs_ccmvTJiMiCM  (clock o*r*iorrrj~3)  ; 

begin 


—  Xf  apaciflad  clock' •  CM  addraaa  la  non- sore  (l.o. ,  tho  clock  oxlata  I 

—  and  haa  boon  Inltlollaod)  than  re-lnltiallsa  it  by  clearing  tho  CM 

—  aattinga;  othorwiaa  rnlao  an  oxcopt  1  on  ainoo  tho  a  pacified  clock  haa 
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—  set  baa  initial i««4  ywytrly. 
if  dock_hrzay  (Clook_Id**t  1 f  lor )  /-  MCUII  IttO  tiM 


enmt_cn  «ny_cn_>«oard'  (go  «>  non. 

Mod*  «  Co**ut_Xt  (Mod*) . 
cat*  ^  c«*rart_It  (Cat*) , 
otkara  ->  run  )T 

Cut_CSft  (Cuxr«nt_cm,  Clook_Axray  (Clock_Xd*actifi*r)  )  ; 

doch_Iafo  (CXodt_I  A*  at  if  i«r)  :■  dock_XnfotMatlon_kaoord'  (Cat*.  Mod*) 

•la* 

rain*  dock  Met  Xaitlaliaad; 

«nd  if; 


and  *•  xaltlalla*; 


3 


4 


Display_CSR  procedure 

with  TBCTJCO;  oa*  ttXT_XO.- 

vlth  10IVJtagiat*x_D*finitioa*;  oa*  BV  fcagiatarJOafialtioaa; 

wlth  oacBcccxD_ccavt*aio«; 
a«p*r*t*  (nrvll_dock_M*iiag*r) 

procedure  Di*pl«y_ciR  (Clock_Id*otifl*r  :  to  dock_XD)  ia 

Curront_car  •  IO»V_C* R_R* oo  rd  ;»  Q*t_CH(dock_Array  (Clock_Xdantlfi*r) )  ; 

package  k*t«_IO  la  n*v  cauKMATXOtf  XO(Clock_a*te)  ; 
package  KodeJCO  la  M>  MMMnOijo  (Clock Jtode)  ; 
package  •OOLSM_IO  ia  now  mMlUIMJS  (MOX1MI)  ; 

function  con**rt_xt  la  aw  UNCiiicux>_co«vxuioa  (naixano_2 ,  clockjfcd.)  ; 
function  Cono<arC~Xt  la  now  UKHCUS~c«VXUZOII  (nixaiDIJ ,  dock_*ate); 

procedure  rom*tt*d_»t  riugPut  (*tr  :  In  rrkxnc)  1* 
begin 

Cut  (*tx)  ; 

■at  jCol  (20)  ; 

CutT-  «>  «); 

•ad  rox»att*d_Ctrlogjrut  ; 


* 


begin 


—  Xf  *p*clfiod  clock'*  OCR  *ddr*a*  la  non-aero  (1.*.,  th*  clock  eriat* 

—  and  haa  boon  initialized)  than  diaplay  content a  of  CM; 

—  othervia*  raia*  an  exception  aino*  th*  ap*dfl*d  clock  haa 

—  not  boon  initialized  properly. 


if  elock_hrxay(ClockJtd«atifl*r)  /•  *BOUSI_imo  than 
romattod_»tring_Cut  ("CSk. go*)  ; 

•OOXJUtn^xO.  Cut  (Currant _CCR. go)  ;  aoo__Li no ; 

rocantt*d_Ctrlng_Cut  ('Cat. nod*-)  • 

«*od*_lo.f<jt  (Cowoort__Xt  ( Current  _C* a. and* ) )  ■ew_XJ.no; 

roxM*tt*d_gtxiag_Cut  (-cm.  rat*-)  ; 

R*te_I0 . Cut  (Coav*xt_Xt  (cuxrant_cm.r*t*) )  ;  Vaw_Lina; 

rornattad_Ctring_Cut  (-cm.lnt_owf-) ; 
•00XSMf_X0.Cnt(Cumnt_C*k.  int_owf)  ;  >w_Um; 

reznattad_ftxing_Cut  (-cm.owf_fl*g-) ; 
•OOLSM_IO.Cut(Cnrr*nt_CM.owf_flag) ;  lw_Un; 

Pomattad  Ctring_Cut  (-cm.aaiat  atl*); 

■001*JUI_I0.Cut  (Cuxr*at_cCk. aa lnt_*t  1) ;  ■•■JLiaa; 

rom*tt*d_»tring_Cnt  (-C».**lnt_atl-)  ; 
•OOLma_XO.Cnt(Cnrr*nt_cm.naint_at2) ;  ■awjLlo*; 

romatt*d_String_Cut("Cm.Malnt_oae-)  : 
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Enable ..Interrupts  procedure 

with  KMVJtegiaterJiefiiiltioaj;  uae  RHV^Reoi tter J)e£ iait loai ; 

Mptrat*  (XMVll_Clock_Nanager) 

procedure  SoablejBttrnpta  (Clock_Identif  ier  :  in  Clock_ID)  ie 

CurrentjCRR  :  KMVjCSh_Rweord  :■  Cet_CSR  (Clock^JLrray  (Clock_Ident if iar ) )  ; 


—  Zf  specified  dock' *  CM  addreaa  ie  non- more  (i.e.f  tho  dock  exist e 

—  and  has  boon  initialised)  than  onablo  interrupt  a  on  counter  overflow; 

—  otherwise  raise  on  exception  since  the  specified  dock  hss 

—  not  been  initialised  properly. 

if  Cloek_Arrey  (Clock_Xd*atifier)  /-  JUX>RRRR_SERO  then 
CurrentjCRR. intjowf  :■  TRUK; 

f«t_CSR (Current  CSR,  Clock  Arrey(Clock  Identifier)); 

elee 

reiee  Clock  Rot  Znitielised; 
end  if; 

end  Rnable_Xntarrupte; 


Disable Jnterrupts  procedure 

with  KMV_Register_Definltions;  KWV_Re^i st er^Def init ions ; 

separate  (RWVll_ciock_Maneger) 

procedure  Dieable^Znterrupts  (Clock_Xdentifier  :  in  Clock_XD)  is 

CurrentjCRR  :  KMV_CSRJR*eord  Get  jCSR  (Clock  JLrr  ay  (Clock_I  dent  if  ier) ) ; 


—  Zf  specified  deck's  Clt  address  is  non-sere  (i.e. ,  the  dock  exists 

—  end  has  been  initialised)  then  disable  interrupts  on  counter  overflow; 

—  otherwise  raise  an  exception  since  the  specified  clock  hss 

—  not  been  initialised  properly. 


if  Cloek_Array(ClockwXdentlfier>  /-  ADDB1J1XWO  then 
CUrTent_CSR.int_ov£  :■  VALIK; 

*ut_C*R (Current _CSR,  Clock__Xrray  (Clock_Xdentif  ier)  ) ; 
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•1m 

nlM  Clock  Mot  Znlt  Ullood; 
•od  If; 

•■d  UMU»_z>tunvU; 


Set _lnterrupt_Perlod  procedure 

with  WCBCPDjCOmiflflM; 

with  vaxKXM_nmrzct»;  bn  vaucEur_«jnrxc£j ,* 

with  IRV jRegiater JHfiaitioM ;  on  BlV^togifter^fiefUitiou; 

•epente  (KHVl  l^ClockJhMper) 

procedure  let_ZQterrupt_Period  (clock__Identlfier  :  in  Clock_XD; 

~  Period  :  in  KJCV_COOWTE  R_TT  P E )  in 

DedoeTicka  :  KWV_COO¥TtR_TTP* ; 

for  Devioe^Ticka  uae  at  (Clock_Array  (ClockJEdontlfior)  4-  2); 
btgiia 


Zf  aped  f  led  clock.* m  CM  tddraaa  la  Doa-iero  (i.e. ,  th*  dock  azlata 
and  haa  been  initial! sad)  than  ant  tha  currant  value  of  the  dock 
interrupt  period  us  log  two' a  ccnplenent  notation;  otharwiaa  ralaa 
an  except  ion  ainoa  tha  aped  find  clock  haa  not  been  initialised  properly. 


if  Clock__Xrray (Clock_Identifler)  /«  ADDMIl^tUtO  then 
NKinJiiGISTH(  (1€?VTVT«  -  Period  4  1),  Davicejricka)  ; 

alae 

ralaa  Clock  Mot__Xnitlallsed; 
and  if; 

end  Set_Xnterrupt__reriod; 


Generate .Interrupts  procedure 

with  nW_RegisterJDofl  alt  lone;  uae  nrV_Ragistor_Doflnitione; 
aeparate  (KJCVll_Clock_lian*ger) 

procedure  Generat e_Xnter rupt a  (ClockJSdentif iar  :  in  Clock_XD)  la 

Curreat_C9R  ;  KJIVjCM_Racord  ;•  Get_CSR  (Clock  Jirray  (Clock_Ident if ier) )  ; 

begin 


—  Zf  aped  fled  clock' a  CSR  addreaa  ia  aotriaro  (i.e.,  the  dock  axiata 
■ —  and  haa  bean  Initialised)  then  start  internal  counter  that  cauaea 

—  interrupts;  otharwiaa  raise  an  exception  alnoe  the  aped  fled  dock  haa 
--  not  bean  initialised  properly. 


if  Clock_Array (Clock_Xdeatif ier)  /-  ADOREM_SCRO  than 
Current_C*R.go  :■  TRUK; 

Put_C*R  (Current_CSR,  Clock  hrray  (Clock  Identifier) ) ; 

alae 

raise  Clock  Hot  Initialised; 
end  if; 

end  Generate_Xnterrupte; 


Reset_lnterrupt_Flag  procedure 

with  KMV^RegiaterJDeflnitlona;  uae  WV_RegieterJDef initiona; 
ae pa rate  (KMVll_clockjMa anger) 
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«ad  if; 

•1m 

ciIn  Clock  Sot  Initialised; 
•ad  if; 

•ad  ItutJSMatlag; 


ReadjCounter  procedure 

with  WJUqleUrP>fialtlOM;  qm  INV^ReQieterJ^flBitiens; 

•epentc  (mVll_Clock_tfanagar) 

procedure  lead_Coooter  <Clock_Xdentifier  :  is  Clod k_XD; 

■  uebe r_Of_T i eke  :  out  KWV _C OCKT ER_TYP E )  ia 

Current_CRR  :  K*V_caR_Racord  :•  GetjCSR  (Clock_Array  (Clock_Ident  if  ier)  )  ; 

Dadoajrlaka  :  RMVjCOOMTUljrxVK; 

for  Derloe^Tioke  om  at  (Clock JUrty (Cleck^Xdeot lfler)  +  2): 

begin 


—  Xf  specified  dock' a  CIR  tddrea#  la  aoo'iero  (i.«.,  the  dock  •slate 

—  end  ha a  been  initialised)  than  sisulete  an  ezter&el  event  to 

*-  get  currant  ▼slue  of  the  dock'  a  Internal  oo untar  written  to  the 

—  BOVTUl/tURT  register  and  then  read  that  walua  and  return  it  while 

—  the  dock  continues  to  run;  otherwise  raise  an  exception  since  the 

—  specified  dock  has  not  been  initialised  properly. 


if  Clock_Array(Clock_Xdentifiar)  /•  ADDR£flS_ZCRO  then 

if  (Clockv_Xnfo(Clock_Xdentifler)  .Mode  ■  Hode_Tvo  or  else 
Clock^Xnfo  (Clock_Xdentifler)  .Mode  ■  Mode_Three) 

then 

Current _CSR.at2_int_anabla  ;•  FALSE; 

Currant jCSR.maint_st 2  :•  TRUE; 

Eut_Cf  Recurrent  _C  SR ,  Clock_Arr*y  <Clock_Identifiar) )  ; 
loop 

Current  jCIR  ;•  6at_CSR(Clock_Array  (Clock_Idant if ier )  )  ; 
exit  whan  Currant __CSR.at2_f lsg; 
and  loop; 

■uaber__Of_Ticks  REAX)_REGXSTtR(Dewice_Tlcks)  ; 

Currant JCSR .  st2_f  lag  :  •HrALSE  ; 

Put_CS»7current~CSR,  Cl  ock_Array  (Cl  ock_Xda»t  i  f i  er ) )  ; 

else 

reiae  InwalidjClock^Hode; 
and  if; 

•Isa 

raise  Clock_Rot_Xnitialised; 
end  if; 

end  Read  Countar; 


Stop_Countlng  procedure 

with  KT*V_Regiatar_Def*niti©na;  us  a  KKV_Regiatar_Daf  lnitions; 
separate  (HWll_ciock_Managar) 

procedure  RtopjCount ing  (Clock_Zdantifiar  :  in  Clock^XD; 

■uBbar_Of_Tl ck a  ;  out  UrV_COUWTE R_TTPE )  la 

Current _CIR  :  IOrv_C*R_Reaord  ;•  Cet_CSR(Clock_Arr*y (Clock_Identi fiar) ) ; 

DawloaJTleka  ;  E*v_coui»TERTYPI  ; 

for  Dawioe_Tieka  osa  at  (Clock_Array  (Cloek_ldent  if  ier)  ♦  2); 
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lnterrupts_Enabled  function 

with  XMV_RegisterjDefi  cation*;  u «o  KWV_Regi*ter_Def inltions; 
separate  (IMVll^Clock_Manager) 

function  Interrupts_Enabled  (Clock_Idont if ier  :  In  Clock__XD)  rot uxn  BOOIXAN  is 
Curront_CSR  :  KMV  CSR  Rocord  :•  Get_CSR  (Clock_krray  (Clock JIdont if  ior) )  ; 


—  If  specified  clock'  ■  CSR  address  is  non-*ero  (i.e.,  tho  clock  exist* 

—  and  ha*  boon  initialized)  than  rot urn  *  BOOXXAN  value  Indicating 

wh  other  or  not  tho  clock  will  generate  an  interrupt  whan  it*  intomal 
clock  ororflow*;  overflow  flag;  otherwise  raiae  an  exception  since 

—  the  specified  clock  ha*  not  boon  initialised  properly. 


if  Clock__Ar ray (Clock_Zdent i f i or )  /•  ACDRXSS_rtRO  then 
return  Current_CSR .  int  ovf  ; 

else 

raise  Clock_Not_Xnltialised; 
end  if; 

end  Interrupt  *_l  cabled; 


CurrentMode  function 

»lth  I7WCMX  CXJD_CCtm 

with  DfV_a*glat«r_Dufialtlon«,-  w«  *KV_ii»slrt«r_D«f lnltiona; 

••pant*  (nrm_clock_Managur) 

function  Curruntjtod*  (ClocklaWntif i«r  :  in  Clock_H>)  nton  clock  Mod*  ia 
Curr«ct_Ck»  ;  wv_C««_Ucord  (Clock _A*r«y  (Clock_I<iant  ifi.r) )  ; 
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fonetlac  Coarr«rt_It  la  mm  ■WCM>.CWVW«IOi  (W«iaTO_2,  dockjtod.)  ; 
bagla 


—  21  <rMili«d  alMk'a  CML  addpaaa  la  aoa-Mn  (l.a. .  tfca  dock  aiiata 

—  oad  kaa  baaa  Ialtlallaad)  tkaa  ntan  oairaat  dock  aoda;  -  j 

—  otkanlaa  ralaa  aa  auaptioa  alaca  tha  opacified  alack  baa  I 

—  aot  baaa  Ialtlallaad  preparly. 

If  Clack Jkrxay  (Cloak JMoartlfiar)  /-  ASOuaa_lE*o  than 
ratoxa  Caa*art_Zt  (Carxaat_C*k.aada)  ; 

alaa 

xalaa  Clack  lot  Ialtlallaad; 
end  If; 

v  j 

and  CorxaatJMada;  • 


Current_Rate  function 

with  UNCHtCXZDjCOirVXMZOa; 

with  RNV^RAOifUr^OtfiBitiMui;  one 

(KXVll^CiockJteBAgtr) 

function  Current_Rate  (Clock_Id*nt ifier  :  in  Clocks ID)  return  Clock__Rate  in 
Curr ent _CS R  :  KMV_CSR_Record  :■  GetjCSR  (ClockJUrrty  (Clock_Identif  ier)  )  ,* 

function  Conwert_It  In  now  UNCHrCKXD_COKVZRSIOU  (UHSIQJTD_3 ,  Clock_Rate)  ; 
begin 

—  If  specified  clock' n  CSR  address  in  non-sero  (i.o. ,  the  clock  oxintn 

—  and  ban  boon  Initialised)  than  return  current  clock  rate; 

—  otberwiae  mine  an  exception  ninee  the  aped  fled  clock  ban 

—  not  been  Initialised  properly. 


if  ClockArmy  (Clockldentif ier )  /-  A0DWiS_«RO  then 
return  Conwert_It  (Cur rent_C3R.  rate)  ; 

elne 

nine  Cl ock__Rot_Xnit la  1  i sed ; 
end  if; 

end  Current^Rate ; 


lnterrupt_Period  function 

with  UNCKECXZD_C0*VRR3X0M; 

with  VAXEXJI_SKRVXCZS;  tine  VXXtLK_StRVICtS  ; 

with  KHV^RegiaterJDefinitiona;  uae  KW_Reginter__Def initio nn ; 

separate  (KWVll_Clock_Kanager) 

function  Interrupt_Pexiod  (ClocJc_Ident i fier  :  in  Clock_XD)  return  WCVOOTOIfR^TTPI  in 
DewioeJTicka  :  WVjCOa*TlR_TXT*; 

for  Device_Jf  icka  une  at  (Clock_Xrray  (Clock_Identif ier)  ♦  2) ; 
begin 


—  If  specified  deck's  C«R  address  is  non~aero  (i.e. f  the  dock  exists 

—  end  has  been  initialised)  then  return  current  value  of  the  clock 

—  interrupt  period;  otherwise  raise  an  exception  since  the  specified 

—  dock  has  not  been  initialised  properly. 


if  Cloek_Array(Cloek_Xdentlfler)  /•  RDOREISJIKRO  then 
return  RXRDJttCXtTBR  (DeviMjfidi) ; 

else 

raise  Clock  Bot_Xnltlallsed; 
end  if; 

end  lnterrupt__Period; 
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lntemipt_Flag_On  function 

with  nv JMgicUz^OtfUitlcM ;  «m  IMV_l*gict«r J>«f iait  Iom  ; 

•fiwU  (WVl l_ClodtJfc niyr) 

fuflctloQ  Xaterrupt_ri«g_Ou  (doekjdoatiflor  :  in  Clook^ZD)  rat  ora  lOOUAV  la 
CurreoktCSR  :  KOTjCSBJLecord  Cet_C*a(Clock_Arrey  (Clock  ldentif  ior) ) ; 


—  Zf  cptoificd  clock*  a  CfK  «ldr*o«  la  non- aero  (l.t. ,  Uw  dock  exists 

—  aad  ha a  bean  laltlalisad)  than  rat  urn  currant  wwtff*1*  faint  of  countar 

—  overflow  flag;  otherwise  raiae  an  exception  a Inca  tha  specified  dock 

—  baa  not  boon  laltlalisad  proparly. 


if  Clock_Array(Clock__Xdeatifler)  /•  ADORlflfl_xrAO  than 
return  CurrentjCflR. oaf  flag; 

alaa 

raiaa  Clock_Bot_lnitlallsed; 
and  if; 

and  XnterruptJTlagjOn; 


Ovemin_Flag_On  function 

with  KMV_Regi eter_Def init ions ;  uaa  R(V_llogi at er  JDef lnit Iona ; 
aaparata  (KKVll_Cl©ck_Konnger) 

function  Oaurruajr lag__On  (Cloek_Xd«ntifiar  :  in  Clock_ID)  return  BOOLEAN  la 
Current _CJR  :  DTV^CSR  Raoord  7-  Cet_CflR  (Clock_Arr»y  (Clock  ldantifiar) )  ; 

begin 


—  Xf  apacifiad  clock* a  CM  addraaa  ia  non-sero  (i.e. ,  the  clock  asiata 

—  and  haa  boon  initialised)  than  return  currant  BOOTJAM  value  of  overrun 

—  flag;  otherwise  raiae  an  exception  ainoa  the  specified  clock 

—  has  not  been  initialised  properly. 


if  Clockjfcrray (Clock_Xdaatlf ier)  /•  ADORRSfl_XK.RO  then 
return  Current  CSR.f la g_over run; 

else 

raiae  Clock  Pot  Initialised; 
end  if; 

end  Overrun  rlagjOn; 


A.e.  INS  Data  Types  Package  Specification 


r»  l_D. t.Typ*  i 
MOO OH  mi:  raekag*  fpaclfloatloa 


■■pert  lueatiTC  global  ooutiott  aad  type*. 


tbla  paekaga  dafiaa*  tb*  eeaataata  a  ad  global  data  typaa 
aaad  throegbont  tb*  asaeotle*  aubayataa. 
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~|  mtxem  cnwr:  —  M  Ml  of  llatlag 


p«**»  '*“■ 

ai_D»UJni  H  la 

Muiaoi_triority  :  aaaat «nt  nn>u 

MuiaaHdiJMH  :  aoaatal  nnUL 
Nulaa_hrlo4_V>lM  :  aowatant  WOMl 
m  cat— a— 4a_tag_»lafc  :  aoaataat  nmu 

aabtypa  TibkJtAaga  la  iuoul  tug*  0.  .Ikxiaatlak^ValM; 
avbtjp*  Kriod_Uagi  la  MttWIT.  nag*  1  Mill  in_f  ill  1_~«  In 
aubty|>«  trlorlty_lug>  la  aunu  tuga  0.  .Maxlaaa_trlerlty; 

aad  IM_Data_Typaa; 

— ______________ -  acvzaxo*  mijtory  - - 

--I 


■ 

-  34  5<0_000; 

-  511; 

•  2  540; 


A.f.  Clock  Interrupt  Service  Routine 

with  VAXXXJ(_3XRV1CES  ; 
with  CCmDITXCmjOMDLXtK; 
with  XNS_patoJrypos; 

with  SYSTEM;  uso  SYSTEM; 

proeoduro  Ti*«r_Xnt«rrupt_lloutino 
(Dcvioa^te^ittttf  :  in  ADORXSS; 

Coa^R^ioo  ;  in  out  . Ifcttt lwo__C it i i n i cat ion_Rng ion ; 

XSRjContoxt  :  in  VAXELM_¥eRV1CE5  .  X iR_COMTEXT__TYP E  )  is 

fioturn_Codo  ;  CO*DITIOM_KX*DLI»C .  C0MX>_VXU0E_TTPE  ; 

To«p_Xnt  :  XXTEGER  0; 

bog  in 

for  Xndox2  in  1..X10 
loop 

Tos^>JXnt  :■»  Toop_Int  ♦  Xndox2; 
ond  loop; 

CosiJUgloa. CumatjrlckJlMb«r  :•  Con_R*gioD .Currant JTickJluibtr  +  1; 

if  CoM_Rogion.Curr«nt_Tick_*\mbor  >—  Coask_Rogion.ilort_Schodulo_Tino  th«n 

VRXELM_SESVXCES.SXOKAX._pCVXCE(Ststus  ->  fUtum_Cod«, 

Dovioojtfwbor  ■>  0, 

ISR_Contoxt  •>  iSRContoxt  ); 

•nd  if; 

ond  Yianr_Xntorrupt_aSoutino; 
pnpi  *UPPREJ*_ALL; 

r*~‘tri  EXPO*T_PROCEDTOE  (Tls»r_Xntorrwpt_lboutlno)  ; 


A.g.  Runtime  BIT  Package  Specification 


•mens  SAME: 
MOfXJXX  TYPE: 


Snntl4M_SXT 
Pscksgo  Spocifi notion 


This  pock* go  isplsaonts  tho  hrntiM  Sullt-In  Tosts 
for  tho  REST  IRS  oiaalotor  progroa. 
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p ragu  Met; 

packaga  RastliMBXT  la 

tank  RnafeliMjUT^rcooMtor  la 

•otty  letlnU;  --  oallad  «nry  1000  aa«e  by  tha  dlapatchar 
pngai  *BXCRZTY(2); 
and  bwfciaA^in^trooMaor; 

procadura  Ruotima_Taata;  —  implamanta  tha  taata 
and  Knatla*  BIT; 


RRVISICR  HISTORY 


A.h.  Runtime  BIT  Package  Body 


MOCCZX  IAKK:  Rnntima  BIT 


MQOOLB  TYRE:  Fackaga  Body 


MODCZx  ru*pon  : 

Yhla  packaga  laplamanta  tha  Runtlma  Built-In  Taata 
for  tha  XX ST  ms  aimulator  program . 


MODULE  DESCRIPTION: 

Thia  packaga  lapl«Mnt«  tha  Buntiaa  Built-In  Taata 
for  tha  BEST  IMS  aiaulator  program. 


—  aaa  and  of  Hating 


pragma  MSB; 

with  Load_Control; 

packaga  body  Runt ima_BI T  la 

taak  body  Runt  ima_BIT_Frocaa  aor  ia 
bagln 
loop 

•oo^t  Actlaata;  —  cal  lad  aaary  1000  maac  by  tha  diapatchar 
Load_Control  .Buay_Mait  (SO) ; 
and  loop; 

and  Stint  InajBITjPgooaaaor; 

procadura  Runtima_Tart  a  la 
bagln 

mall;  —  laplamanta  tha  taata 
and  Runt  ima_Taata ; 

and  Rantima  Bit; 


RBVIIIOn  HISTORY 


1 
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A.!.  Motion  Simulator  Package  Specification 


M9DQLI  BAKE:  MotlonJIlmalator 

MOOOU  TYPE:  Nckt^4  Specification 

moduli  purpose: 

Tkii  paokagi  i^X«aoti  tlM  nxiooa  aotion  simulation 
calculation*  that  era  tbt  oora  of  tha  ASST  ZM 
iiultUt  pfogrta. 


MODULI  DISCRXPTXCB: 

Ala  packaga  tha  ▼irioun  Motion  simulation 

oalettlatioaa  that  ara  tha  oora  of  tha  XKSt  IV3 
a isolator  program. 


m 


of  Hating 


packaga  Mot ion_* isolator  ia 

prooadura  T?pdata_Attituda_and_Baading;  —  callad  by  tha  clock  XSR  avary  2.56 


taak  Ship_Va loci tyJOpdatar  ia 

antry  Act  i  vat  a;  —  callad  by  tha  diapatchar  a  ▼ary  40.96  aaac 
pragma  PRIORITY  (8); 
and  *hip_Valocity^Updatar; 


taak  *hip_Poaition_Opdatar  ia 

antry  Actiaata;  —  callad  by  tha  diapatchar  avary  1300.0  maac 
pragma  PRIORITY (1)  ; 
and  Ship_Poa  it ion^Updatar ; 


and  Motion  Simulator; 


- -  RCViaxai  HISTORY 


A.j.  Motion  Simulator  Package  Body 


MODULI  MAMS;  Motion  Simulator 


MODULI  TYFS:  Packaga  Body 


MODULI  PURPOSI: 

Ala  packaga  iaplamanta  tha  varloua  notion  aimulatlon 
calculat  Iona  that  ara  tha  oora  of  tha  ASST  IBS 
simulator  program. 


MODULI  DISCRZPTZOM: 

Thin  packaga  l^laaaata  tha  various  notion  aimulatlon 
calculations  that  ara  tha  oora  of  tha  AIST  IBS 
simulator  program. 


—  aaa  and  of  Hating 
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with  loadjOomtxol; 
with  twkJMMQir; 


paofcago  bo 4r  Mot  lem_f  isolator  is 
poooodugo  tJpdato_Attltodo_a&d_8oi 


•ding  to 


«ad  OpdaUJktt  ltMU_>adB>  idlnq ; 


took  body  Skip_y«locity_0pdat« r  lo 
boqin 


•coopt  Aotlntc; 

LoadjCoatrol.Raoy_Malt  (40) ;  —  4  milllo*ooado 

•ad  loop; 

•ad  Ship_V«locity_Updat«r; 


j 


took  body  Ship_Pooition_Opdat«r  lo 
begin 
loop 

•coopt  Activate; 

*  LoadjCoatrol.huoyJMait  (2S0) ;  —  25  milli««condo 

•ad  loop; 

•ad  Ship_Po«ition_Updat«r; 


•ad  Motion  Simulator; 


REVISION  83 STORY 


—  I 


A.k.  Comms  Handler  Package  Specification 


package  CoomoJBandlog  is 
procod ura  TimojOut; 


took  htt it ud«_P«ri od i cJMoa aaga_S aada r  lo 
•atry  Actlnt«; 
pragma  PRIORITY (7) ; 

•ad  Attitud*_P«rlodic_l<*oaago_S«ad*r; 


took  VaTlgation__Fariodlc_Maa*ag«_jB«ndar  io 
•atry  Actlnt«; 
pragma  PRIORITY  (4)  ; 

•ad  IUtI  gat  i  on_P  oriodi  cJMa«aaga_Send«r ; 


•ad  Coma  Handler; 


A.I.  Comms  Handler  Package  Body 

witk  L oad_Control; 

with  Taak_Kanagar ;  uo«  Taak_Kanagar  ; 

package  body  Comojbx>dl«r  lo 

procedure  TlmajDut  io 
b*gia 
null; 

•ad  TlmojOut; 

took  body  httlt«da_Parlodic_tlaaaag«_Sondcr  lo 
bagin 
loop 

aoeopt  Activate; 

LoadjCoatrol .  buoyJHalt  (100)  ;  —  10  mllllo«aoado 

•ad  loop; 

«nd  httitud*_P«rlodlc_M*ooago_S*ndor; 
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task  body  hTi gat  1  on  JPnrlodi oJlHW4<_ludu  la 
begin 
laay 

too  fit  latlnU; 

Loed_Oootrol .  ■nay_Wslt  (200) ;  —  20  nlllissoosAs 

and  loop; 

and  ■avlgatloa_Psrlodle_Message_S*ader; 
and  Casas  ItadUt; 


A.m.  Screen  Area  Handler  Package  Specification 

package  lesMaJLru^laadltr  if 

task  ff«riodlc_ltataa_X>lapXay_froeaa«or  la 

vitry  Activate;  —  cal  lad  overy  1000  msac  fay  thf  diapatchar 

pragma  PRIORITY  (3)  ; 
and  Parlodie_«tatua_Diaplay__Procaa*or; 

and  Icraan  Area  Band lax; 


A.n.  Screen  Area  Handler  Package  Specification 

with  X*o«d_Control; 

package  body  fcraan__A raa^Vandlar  la 

tank  body  Periodlc_Stattxa_JDlaplay_Procaaaor  la 
faagin 
loop 

acoapt  JLetivata;  —  cal  lad  every  1000  maac  fay  the  diapatchar 
ZcadjControl.BnayJHelt  (ljOOO)  ;  —  100  mllllaaeoada 

and  loop; 

and  Perlodl c_*tatua_Di ap lay_P rocaa aor ; 


and  Screen  Araa  Handler; 


A.o.  Activation  Queue  Manager  Package  Specification 


—  |  MODULI  HAMT :  Activation  Qusoa  XUMgw  (ACM) 

—  I 

—  |  MODULE  TYPE:  Package  Specification 

--I 

—  |  MODULE  PURPOSE: 

—  |  lapluBt  task  activation  queue  aa&agar. 


MODULE  DESCRIPTION: 

Tbla  package  provides  the  necessary  data  types, 
procedures,  and  exceptions  for  iaplsMestlag  a  ties 
ordered  activation  queue.  The  package  only  supports 
one  aucb  queue  vbose  iaplenentation  details  are  hidden 
within  the  package  body. 


—  I  REVISION  El  STOW:  —  see  and  of  listing 


prsgun  PASS; 

with  Task Jtnnngnr ; 
with  IRS  Dst  a_Typs  a  ; 

pseksgs  Aetlvatlon_Ooeua_Manager  Is 
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MODULE  DEJCAIPTIC*: 

This  package  supports  tbs  implementation  of  •  tine 
ordszs4  task  activation  qusus  and  its  associatad 
interfaces  exported  la  tbs  package  a  pacification. 

The  activation  queue  la  aaintsinad  aa  a  atatic  array  of 
activation  racorda  (Mia)  aa  daflaad  la  tbs  packaga  specification . 

Tbo  Ua  am  sever  moved  frcai  tbalr  Initial  pos  it  ion  lB  tha  array  and 
one  special  array  element  la  raaarsad  for  tha  Ml  of  tha 
Oaamuaieatlons  Controller  task,  which  la  called  whan  a  t ins -out  has 
expired.  The  EON  maintains  informat  ion  regarding  the  mart  task  to  be 
scheduled  and  when  to  schedule  it  by  performing  a  linear  search  of 
tha  array  op on  each  insert  and  fetch  operation.  «ban  aa  AE  is 
returned  (i.e.,  taken  off  tha  queue)  to  the  Dispatcher,  its  actiwatlon 
mode  mine  la  checked  by  tha  igt;  if  It  represents  a  periodic  task,  a 
nee  activation  time  ia  computed,  and  the  Ml  gats  re-inserted  into  the 


—  I  NCVXEICH  HISTORY :  —  sea  and  of  listing 


pragna  IMS; 


with  Taa k_Manage r ; 


Task_Maaager; 


paefcage  body  Aetlvatlon_goe«a_l«aaagar  ia 


««rt_hctiwatlon_Tims  :  Activatioa_*lme_nange  Activatioa_Time_llange'LAJT; 
JSaxt__Taak_To__*chadula  ;  Taak_ID_Type; 

Aetiwatlon_Aecorda  :  array  <Task_XD_Type)  of  Task_Actlvatloa_*ecord; 
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—  ZBMXt  tha  ipMifitd  Ma  lftfoxattlofi  iato  tha  AA  Table 

pcooatea  Taaait Jut  lvat ion_R*aord  (laoocd^XD  :  1a  tack j^tlntloa^feawrd ; 

“  iit^BflbadalaJtlAa  s  oot  Activ»tloo_TiJ»a“ianga)  is 

begin 

ActlntioaJUoQgdc  (laoogdJB) . tack^ID)  :■  baoord^ZD; 

if  l*oord_XD  .ioklvatioa_TiM  <  Baitjlct ltat lonJTit  and  than 
lMocd_ZD .ictlvafcloe Jtodc  /•  RojOp  fcbaa 

RaxtJMtivatioajriM  :•  *noord__ID .  Act  1  vat  i  onJPijca  ; 
Wait_Taak>foJkbada  1  a  :•  Raoord__Ii>.  Xa»k_JU>; 
and  if; 

■aatJIabadnlaJHaa  ;■  bait JMk IfationJIlaa; 

•ad  Incut  JUfcifatlon  Icaaxd; 


—  Oat  nut  ML  frea  tba  Jutivatlon  Qmm.  Ka-cehcdul«  any  taakc  with 

—  cane  activation  tiaa  as  tbc  oaa  taken  off  tho  quaua. 


procadura  Cat_Act  i  vat i on_Racor d  (Raoord_ID  :  out  Task_Activation_Racord ; 

Maxt_Schadula__Ti»a  :  out  Acti vat ion_T i*a_Ran<j« )  is 

begin 

keoord^ID  :■  ictivation^Rcoocda  (Vest JTaek^To^fchedule) ; 


—  If  current  task  is  periodic,  than  raooayota  next  set  last  ion  for 

—  task  and  than  ra-iasart  it  into  tha  activation  queue. 


if  Actlvatlon__Raoords(lla*t_Task_To_fchadula)  .Act ivat lon_Moda  •  pari odic  than 
Act  ivat  i  oaJRaoorda  (Weuct_Ta  sk_To_Scbadula  )  .  Act  last  ion_Tima  :  ■ 

ActlvationjAacorda  (■axt_Task_Toa_8chadula)  .  ActiaationJTima  ♦ 

dctivatiwjriaejlanga (Aetivat io"  Racorda  (*axt_Taak_To__Schadula)  .  Act ivat ion_Pariod)  ; 
and  if; 


—  Pind  naxt  task  to  ba  a eh ad ul ad. 


Next^AfltiTatiea^Tiae  :•  Activation_JUoords  <Taak_XX>_Typa' FIRST)  . Act ivat ion_Ti»a; 
Haxt_Taak_To_«chadula  ;■  Task_H>_Typa'  riRST; 

for  Zadar  in  Task_H)_Typa'  SUCC  (Taak_ID_Typa'  FIRJT)  .  .  Task  IDJPypa '  LAST 
loop 

if  Act  i  vat  ion_R*oords  (Xndaz)  .AetiwatioaJTiua  <  Maxt_Activation_Tijaa  and  than 
Act  Ivat  ionjteoorda  (Xndaz)  .Act  ivat  lon_Moda  /»  «o_Op  than 
•ext_Act  ivat  ionjiae  ;•  ActlvatlonJRacorda  (Xndaz)  .  Act  ivat  ionJTina; 
Waxt_Task_To^Sehndula  :■  Xndaz; 
and  if; 
and  loop; 

Mazt^S chad ula__Tixea  ;■  Zaxt _A ct i vat i o n_T ia»a ; 
and  Cat_Act i va t i on__Racord ; 


Mack  AR  aaaociatad  with  Taak_XD  aa  not  availabla  for  schadullng. 

Xts  slot  will  aost  likaly  ba  usad  at  a  latar  data  (a.g.,  tiaaouts)  . 


prooedore  Palata^Act ivat  ion^Ra oord  (Tssk_lD  :  la  Task_H>_Typa )  is 

begin 

Activatioo_Raoorda  (Task__XD)  .Act ivat ioa^Moda  ;■  Ro_Op ; 
and  Palata_Act ivat ion_Ra  oord ; 

and  Act  ivat  loo jQuaoa^Man  a  gar ; 


NEVXSXOM  HISTORY 
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A.q.  Task  Manager  Package  Specification 


TtiklUa^r 


ItefctQ*  Specification 


Thli  ydaq>  provides  «a  inter fa os  to  Initial  1m  the  took  activation 
qniii  and  ata^c  the  dispatcher  of  the  AIR  IMP  simulator  program. 


MQCXJLS  DCtCBXPTXOM: 

This  pacing*  prorldaa  the  nooaaaa xy  procedures 

to  initialise  tho  taak  activation  qoaoa,  start  tho  took  dispatcher , 
eaable/disable  periodic  tasks,  sod  support  tlsa  outs  for  base 
lasal  tasks. 


—  |  WXViaicm  BISTORT:  —  see  end  of  listing 


pragaa  PACK; 

with  IIISJData_Typos; 

package  Task_Manager  is 


Imported  data  types 


subtype  Acti-ration_Ti»e_Range  is  INS_Data__Types .  Ti  ck_Ranga  ; 
subtype  Acti*ation__Period_Rsnge  is  IK*_Data__Types .  Feriod_R*nge  ; 

type  Task__XDjType  Is 

(  »bip_Velocity_Opdater, 

Att  ltuda_»er  lodi  cJHeaaage__Send*r , 

Mavlgat  ion^VoriodlcjMossagojSeoder , 
»erlodlc_Status_pisplay_trocessor, 
hunt  iee__SI  T_P  r  ocas  sor, 

■h ip _P  os it ion_Updater, 

Coops  Controller 

>: 

subtype  Peri  odic__Task^ID__Type  is  T  aa  k_ID_Type  range 
ihip^Velocity^Updater .  .  Ship__Positioo_Updater; 

►  subtype  Tiseout^Ta ak_I D_Type  Is  Ta  #k__XD_Type  range 

Crj—s  Controller.  .Coons  Controller; 


procedure  XnitialiM_Activatio&_£ueue; 
procedure  Actlwate_pispatcber; 

function  Task_Xe_Enabled  (Task_ID  ;  in  Per  lodi  c_Ta  ak_I  D__Type )  return  BOOIXAM; 

procedure  Enable_Task  (Task_XD  ;  in  Per  lodi  c_Taak_ID_Type )  ; 

procedure  Disable_Ta*k  <Ta#k_ID  ;  la  Period! c_Task_ID_Type)  ; 

procedure  ho  quest_Tloo jOut  (Task_ID  ;  in  T  i  neout JPasfc_XP Jfype ; 

Tise_Period  ;  in  Acfciw*tion_Period_Aange) ; 

procedure  Caneel_Tloa_Out  (Taak_ID  :  Tine out._Taak_IP_Typa )  ; 

Dispatcher _Acfclwation_Rrror  :  EXCEPT I0«; 


—  I 


— —  REVXIICE  EX STORY 
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A.r.  Task  Manager  Package  Body 


NODOIX  TYII:  laok«4«  Body 

module  fotlrojz : 

•  periodic  tuk  dlapatcher. 


Thlj  packay  body  laplaaMta  a  took  di«patcb«r 
that  get  a  tad  ra-lacarta  took  aetivatioB  record* 
£rai  tad  onto  tha  activation  quaua.  fha  diapatchar 
mlta  for  aignala  froa  a  raal>tiaa  clock  that  la 
gaaarating  interrupt a  ovary  2.56  milliaeoonda. 


—  |  RXVISIO*  HISTORY :  —  aaa  and  of  Hating 


with  Runti_ne_BIT  ; 
with  Com^HaiMilar; 
with  Motion_Sinulator; 
with  KJfVll_Clock_M*nager; 
with  Screen_Area_Handler; 
with  Aetiaation^QuaoaJhaagar; 

with  8YSTEM;  can  SYSTEM; 

package  body  TaakJNanager  is 

package  RSB  ra&iaai  Runt  lme_BZT ; 
package  COM  ran  ana  a  Co— _Handlar; 
package  MOB  ran  ana  a  Notion_f  inula  tor; 
package  SAH  ran  ana  a  Screen_Area_Haadler; 
package  AQM  ran  ana  a  AetivationjBueue_Kanager; 


Imported  Data  Typea 


aubtype  Clock_XD  ia  KWll_ClocJc__Kanagejr.Ciock_ID; 

aubtype  DEVXCEJTYFE  ia  KWVll_Clock_Hanager .DEVXCEJTYFE; 

aubtype  KKV_COoirrZR._TYFZ  la  WVll”clockJHanager.  KMV_C001fT£R_TYPE ; 


type  Taak_St ate_Type  la  (Dlaabled,  Enabled)  ; 

PeriodicJTaak__»tata  :  array  <Feriodic_Taak_ID_Type)  of  Taak_State^_Type 
(  Shlp_yeloclty_Updater  ■>  Enabled, 

AfctitudejFeriodic_Meaaage_Sender  — >  Dlaabled, 

-  Kavigation_ferlodic_JMaaaage__Sender  ™>  Di cabled, 

AttltudejFerlodic_Meaaage_Sender  ->  Enabled, 
Havlgatioa_terlodlc_Maeeage_fteader  ■>  Enabled, 

Feriodi cjltatue_pi  apley_Frocea aor  ■>  Enabled , 
fUintiae^BZT^Froceaeor  ->  Enabled, 

Shlp_Foe it lon_Opda ter  ->  Enabled  )  ; 


Clock_XFL 

Coeaa_Reg  lon_Addrea  a 
Schedule  At  Tick  Baber 


OtSXCKED  LOBCWOftD; 


Act  lent  ion _Tlme_Range  ;■ 

Activatioo^Tine_Hange'  LAST; 


—  Local  Subprogram  and  taaka 

procedure  Update JBext_Scbedule_Tine  ia  aaparata; 

function  Current_TlckJHuaber  return  Activation_Tine_Ranga  ia  aeparate; 


44 


CMU/SEI-87-TR-32 


ptcoadm  Jkstintfc«_Tuk  (Tuk^ZD  :  U  Toak_n>_Typa  ; 

kI« Md_DMdUM  :  out  BOOLKAO) ; 

prooadora  Tl**_Oot_? u k  (Tuk^ZD  :  U  Tiaao«t_Taak_ID_Typn )  ; 

took  Dlopatchar  it 

•©try  Activate  (Cleek^Zdtatifitt  :  in  Cloek^ZD; 

Clock JDarloa_XD  :  In  K«VXc£_TY*E)  ; 
pn^M  tBX0BXTY(9);  ” 
and  DiipttdMr; 

took  body  Dlapatcber  io  oaparate; 


■  Xacportad  lubproggfi 

procedure  Init iali xa_Activat ion jQuaua  la  aeparate; 
procedure  Jktint«_D  Upstdor  ia  oaparate; 


—  Xa  th*  opacified  took  enablod? 

function  Taak_Ia_Enabled  (T««k_ID  :  in  9eriodicjraak__ID_Type) 
rot urn  BOOLKAH  ia 
begin 

rot  urn  reriodic_Taak_Stata  (Taak_ID)  -  Enabled; 
oad  Taak  Xa  Enabled; 


—  Enable  tba  apoeifiod  taak. 


procedure  Enable_Taak  (Taak^XD  :  in  *ariodic_Taak_H>__Typo)  ia 
begin 

»eriodlc_Ta*k_Otate(T*ak_ID)  Enabled; 
and  Enable  Taak; 


—  Diaabla  tba  opaciflad  taak. 


procedure  Diaabla_Taak  (Taak_ID  :  in  feriodic_Taak_ID_Typa)  la 
begin 

»ariodicJTaak_*tata (T«ak_ID)  Diaablad; 
oad  Dlooblo  Taak; 


—  Activate  tba  opacified  taak. 


procoduro  ActlvoteJTaak  (Taak JLD  ;  In  Taak_ID_Type; 

MiaaadJDaadlina  :  out  BOOUAB)  ia 

begin 

Miaaed_Deadline  :•  FALSE; 
if  Taak_lo_En*blad  (Taak_XD)  than 

oaaa  Taak_XD  la 

whan  Bhip_Ve loci  ty_Cpdat  ar  «■> 

oalact 

M9S .  •hip-Velocity_Opdater .  Act  loot  a  ; 

alaa 

MioaadJDaadlina  ;■  TADS; 
and  oalact; 

whoa  Attitude_9ariodlc_Meeaage_Seader  *> 
oalact 

CGM.  Att  ltnda_t  ar  iodic_Meaaaga ^Sender  .Act  It  at  a; 

alaa 

MioaadJDaadlina  :■  TRUK; 
and  oalact; 

whaa  lariga1  tion_9eriodic_Meaaaga_iender  ■> 

oalact 
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COM.  M»TloatiMwr«rlodleaBMi«i«g«_BMd«r  .  Act iaata; 

•1m 

KlM«d_DMdlln«  :•  TWJ1; 

•ad  MUct; 

•ban  r«riodlo_IUtuJDifplty_froot«aor  «> 

Ml«Ct 

Ul .  Periodic  _Ktatua  JD1  ap  lay_f  coow  cor .  KetlnU ; 

«1m 

:■  nui; 

•ad 

«bw  IUatiMjZT_troo»MOx«> 

Ml«d 

ifl .  Knot  Im^BI  T_Proc««  tor .  Jketlrat* ; 

•1m 

KiM«d_DMdllM  ;•  TRZJZ; 

•ad  Mlact; 

wb«o  *hip_Poaition_Opdat«r  ■> 

Ml«ct 

MOK .  ShipJPoa  it  ion__Updatar .  Act  iwat* ; 

•1m 

Mi  •••d_Daadl  in*  :•  TKOX; 

•ad  Ml«ct; 

wh«a  oth«ra  — > 
null; 

•nd  c«m; 

•In 

null; 

•nd  if; 

•nd  Actiwat#__Taak; 


—  Tin*  Out  tb*  apacl£i«d  tnak. 


proc«dur«  Ttaa_Out_Taak  (Ta«k_ZO  :  in  TiMout_Taak_ID_Typ#)  ia 
begin 

COM.  YiaojOut ; 

•nd  Tio»_OutJTaak; 


proc«dura  Raqu«at_Tijn*jOut  (Taak_XD  :  in  t lMo«t Jtuk^IO Jtypa ; 

Tia»__P«riod  :  in  Actiwation_P«riod_Rangtt)  ia 
K«xt_Tim*  ;  Aeti*atlon_TiM_Raag«  HAXURAL' riR5T ; 
bagln 

AQM.  Inaart_Act  iwat  ion_JU©ord  ( 

(Taak_ID .  ActiTation_Tia«_Rang«  (Tiaa_P«riod)  , 
Actiwation__Tio*_fcang«  (Tiaa_P«riod)  4  Curr«nt_Tick_M unbar, 

10,  10,  ACM  ■  Tina_Out )  ,  Schadul*_At_Tick_WvK^b*ir)  ; 

•nd  MqnMfc^Tiaa^Out ; 


proeadura  Caacal Jf lan_Out  (T«ak__ID  :  TimaoutJ taak_ID__Typa)  la 
Ugin 

AQM.  D«l«ta_Act  iwat  ion_Raoord  (Taak_XD) ; 

•ad  Cane«Mia«vOnt; 

•nd  Ta ak_Maaagar ; 


—  I 


KKVZflQH  HISTORY 


Load  Control  Package  Specification 

with  KMVlljCloefc_Manag«r; 
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ptokagt  LoadjCootxol  la 

vobtypa  Clock_H>  la  KWl l_Clock_Managar .  Cl ock_H>  ; 
procedure  initialise  (Clook^Zdtatllltt  :  la  cleck_ZD) ; 
procedure  l*ad_Loe  d_Fa  ct  or ; 

procedure  Nuay_Wait  (Ti»e_Period  :  la  POSITIVE) ; 
and  Load  Control  ; 


Load  Control  Package  Body 

with  Te*t_IO; 

package  body  Load_Corrt.ro 1  la 

type  Load_Factor_Peroantage  la  dalta  O.OS  range  0.0..10.0; 

My_Clock_lD  :  Clock_H>; 

LoadJTactor  :  Load_Factor_Percantage  ;■  1.0; 

Calibration  :  oonetant  Load_Factor_Per  cent  age  :■  0.75; 

Factor  :  Load_Factor_Percentage ; 

Tavp  :  BOOLEAN;  ” 

packaga  Load_Tacrtor_IO  la  new  Taxt_IO.  Fixad_I0  (Load_Factor_Perc«nta<je)  ; 

procedure  Initialize  (clock_Identif iar  :  la  Clock_ID)  ia 

begin 

My_Clock_ID  :■  C lock_I dent i f iar; 
and  Initialize; 


—  Open  external  Factor  file  on  boat;  raad  currant  value;  cloae  file 


procedure  3ead_Loa  d_F  a  ct  or  ia 

\  Fact orj* lleJNaae  :  con at ant  STRING  :•  "25: :pa: [borgerj load  factor. inp~ 

FactorjFile  ;  Taxt_IO .  FILXjrrp E  ; 

uae  Text_IO; 
begin 

Open(Fector_Flle,  In_File,  Fact  or_File_N ana) ; 

Load JFactor_I0. Get  (Facto r__Fi la,  Load_Factor)  ; 

Factor  : ■  Load JTactor_Per  cent  age  (Calibration  *  Load_Factor)  ; 

|  Cloae  (FactorJFila) ; 

"  end  Read__Loed_Factor; 

procedure  ■uay_Weit  (Tima_Pariod  ;  la  POSITIVE)  ia 
begin 

for  Index  in  1 .  .  INTEGER  (Tlma_Period  *  Factor) 
loop 

Tea^>  KWVll_Clock_)Canager .  Inter rupt__F la g_On  (Ky_Clock_ID)  ; 

end  loop; 

|  end  BuayjNalt; 

end  Load  Control; 


Activate  Dispatcher  procedure 

with  TWTJCO; 

I  with  X>oad_QoBtrol; 

with  Tiaar_XBtarrupt_aeutlna; 

■ipr»tt  (Tukjkugar) 

prooedura  Actiwata_Dlapatchar  ia 

My_Ciock_MaaM  7  oonatant  inane  ■  am  1  ■  ; 

Hrjel®e>t_ID  :  clock_XS; 

■  MyjCloek~D«Tica  :  DtVlct_TTTI; 

CJhJkddraaa  :  AODMSI; 

Varied  :  nrrjccmmtijm*  :«  KXV_cOTjm*m>i  (2_560)  ; 
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see  TEXT  XO,  znjMi  TypM,  D im  Clock  Nua«tt; 
begin  ” 


—  laltlaUM  t)M  dock  to  optnfc*  la  sod*  om  at  a  1MU  rata. 

—  The  IiUtnyt  ItrrlM  Soutine  la  "T Inar^Iaterrupt Joutlne" . 


ZftltUllu  (CloekJtaM  ->  HfjelodtJtoM , 

Clock__Xdentif  ier  ■>  Myjdock^XD, 

Mode  «>  Mode_One, 

Kata  ->  Eate~lMHX, 

Vaetor^ltabar  ■>  1, 

Serai  oa_Eoutine  ■>  Tlmar_XntarruptJSoutine'ADORZSS, 
CWU^dr—i  ^  CH_Addr««f , 

Clock JTrlorlty  ^  Clock__XPL, 

Co— an  1,  c  ttloajaqloftilia  ■>  ExecutlaejCc— un Icatlon^Seglon*  KXI, 
Co— I  fTtlcoJ^qloB_kidran  ■>  Co— _leglon_Addm**, 

Dari  oo__Obj  act  ->  Wy_Cl  ock^pewl  cm  )  ; 


—  Dpdata  nazt  schednle  tine  in  c  o— i  ml  cation  rag  Ion. 

—  Start  currant  tick  n— bar  at  0  In  no— unicat  Ion  ragion. 


da clara 

Cosn^Eeglon  :  XMSJDateJPypea . Execut lwe_C<—mnl catloajaglon; 
for  Coira_Begion  uaa  at  CoamL_Keglon_Addreee; 
bagin 

CoiB_Rag ion .  CurrantJTi ck_Wunber  :  ■  0; 

Cci—  ^Region.  Sart_Schadula_Tima  :■  Schadula_At^Tl  ck_l«ba  r ; 
and; 


—  Proparly  initial  Isa  load  control 


Load_Control . Initialize (My__Clock_ID)  ; 
Load  Control .Read  Load_Pactor; 


—  Enable  clock  orarfioa  signals  (Interrupts) 


EnableJX  at  arrupts  (My_Clock_ID)  ; 


—  Sat  Interrupt  tl—  period  to  be  2_5€0  ticks  (2.5S  milliseconds) 


Set_Xnterrupt_Period (Hy_Clock_ID,  Period); 


—  Start  Dispatcher  task 


Dispatcher  .Activate  (MyjClock_ID,  Ky_Clock_Daaioa)  ; 


Start  generating  periodic  In t arrupts 


Cenarata_Interrupts  (My_jClock__XD) ; 


exception 

whan  InitlallBatlonjError  ■> 

Put_U.ee ("Error  during  clock  initialisation.**); 
mine  Dl spat cher_Act last ion_Erro r ; 

whan  Cloek_llot_Xnltlalised  -> 

Put_Une  ("Invalid  clock  Identifier .")  ; 
raise  Di spat char_Act ivat ion_Er ro  r ; 

whan  others  •> 

fatalist  ("Unexpected  except  ioa  raised  back  to  Di  spat  ehar_Actlwate_Dl  spat  char .")  ; 
raise  Dl spat cber_Act ivat 1 o n_Er ro r ; 

and  Activate_Diapatcher; 


Initialize  Activation  Queue  procedure 
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Mparat*  (IWkJluiful 


prnofinri  bltUlinJietlntlwJlHM  ia 

lut_Tlaa  Ml*atlw_Tlat_tug(  :»  nimJLL' rZMT; 

tetlntleajaMcdi  :  aonataat  array  (T»«k_ID_Typo) 

af  i(K.(Mk_Mifatiaa_lMoi4 
(  («klp_Voloclty_Op<Utor,  1C,  14.  *7  •,  AGN.tarlodle) , 

(tttltada  foriodie  Miaaaga  (aadar ,  24  ,  24,  7,  7,  ACM. Pariodic) , 
(■avigatiaa_roriodicJMaaaago_*oadar,  M4,  244,  4,  4,  ACM. Periodic) , 
(l«Kiodic_atattt«_ttlaplay_ Prop— aor,  3*0,  3*0,  3,  3,  ACM.  tar  iodic) , 
imtlaa  i»  trooaaaor,  3*1,  3*1,  2.  2,  ACM-tarledie) , 
<Sfclp_Paal«loa_Opdator,  104,  SO*.  1,  1,  ACM. tariodic) , 

(ffr— _Oont roller,  0,  0,  10,  10,  ACM.Bo_0p)  ); 

bagla 

for  ladaz  ia  Taak_XS_Typa 
loop 

ACM.  Iaaart_Actiratioa_*aoord (Actlvatloa_*aaorda  (Xndaz)  , 
lckodulo_At_Tick__au*bor)  ; 

and  loop; 

aad  laitialisa  Activation  Quaua; 


Dispatcher  task 

with  KHVll_ClocJc_KJin*<3«r ;  UN  KXVll_Clock_MAnMQT; 
with  VAXEL*_SEKVICES ; 
with  Taxt_IO; 

••pant*  (Taak_Hanagar) 

t««k  body  Dl«patch«s  la 

My_jClock_XO  :  ClocJtJID; 

My JC lo  ck_Dav i ca_ID  :  DEVICE_TYPE; 

Currant_AA  ;  Taek_Activation_Racord; 

Taak_Kias«d_Daadline  :  AOOXXAJf ; 

begin 


Receive  information  needed  for  interfacing  with  th«  raal-ti®«  clock 


•coopt  Activate  (Clock_ID  :  ia  Clock_ID; 

Clock_Davi oa~XD  :  ia  DEVICE^ TYPE)  do 
My_Clock_XD  Clock JCD ; 

*fy_Cl o  ck_Davi ca__H)  :  -  Cl ock_Da vi oa_X D ; 
end  Activate; 


loop  aad  dispatch  a  new  tank  for  each  clock  interrupt 


loop 


—  Wait  for  a  signal  devioe  (karnol  eervioe)  call  froea  tho 

—  T imr  Interrupt  Soutine  and  reeet  iotempt  flag  to  allow 

—  aoce  interrupts  to  ba  gaaaratad. 

V3U0tLK_f  EKVXCES . KXIT_Jkinr  (Valual  ->  MY_Clock_peo*  ce^ID)  ; 
Meet^Zntempt^rlag  (My_Clock_XX>) ; 

Ti ck_Mimb«r  Tick^lhaber  ♦  1; 

if  Tick  Ruber  >-  Schedule  At  Tick  Ruber  than 


—  Oat  next  aetlwatloa  record  (whoaa  task  ia  to  ba  achadulad)  frou 

—  Activation  Quaua  aad  taka  the  appropriate  action. 


Oet JMtintioa^leeord (CurreatJUl,  Schedule_At_TickJRuaber)  ? 

cafe  Current  _AA.  Act!  rati  on JKode  ia 

whaa  tariodic  |  Siagla^fhot  ■> 

Act i wata_Taak  (Curraat_AA  .  Taak_XD ,  Task_Miased_X>aadli  ne)  ; 
if  Taak_Mlaaed_paadllna  than 

Salt  JlO.  tut  (Ta»k_ID_Type '  IMAGE  (CurrentAA .  Task_XD)  t 
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*  Miaaod  deadline.-); 

»«t  lO.kat  Un«c  Tick  I:  -  C  imcu'  nag  (Tick  ■«lni)) 
Mi  if; 

«bM  fiM_M  «> 

flna_Oafc_Taak  <Carrent_h*.T«ak_ID)  ; 


end  out; 
end  if; 
end  loop; 


—  itep  aleak  operation 


UJaitidln  n^elock^ID,  Koda_I.ro.  stop)  ; 
cad  Dispatcher; 


A.s.  Main  Program 

with  Task_Menagar; 

procedure  IMS  is 
begin 

Taek_Maaager .  Initial  ise_Acti**tion_Queue  ; 
Tack_Maaagar .  hat  iwate  Di  spat  char ;  _ 
and  HI; 
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